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1 . INTRODUCTION 


A data-base  language  (DBL)  called  RECALL  has  been  implemented  on  the 
Wang  2200  programmable  desk  calculator*  The  language  was  patterned 
after  RETRIEVE,  originally  designed  for  the  Tymshare  computer  system. 
Because  of  the  ease  in  using  the  language,  it  was  believed  that 
RETRIEVE  would  be  an  ideal  DBL  to  use  with  the  Wang  system.  Hence,  the 
language  has  been  implemented  in  its  entirety  with  just  a few  small 
changes.  This  report  only  briefly  describes  the  language  itself.  Most 
of  the  emphasis  is  placed  on  how  to  run  the  system  on  the  Wang  2200  and 
what  the  differences  are  between  the  original  Tymshare  version  and  the 
new  Wang  version.  The  RETRIEVE * manual  details  the  language. 

The  Wang  RECALL  system  has  been  implemented  on  a 2200C  calculator 
with  16k  bytes  of  memory.  The  system  uses  temporary  storage  on  the  last 
320  sectors  of  both  the  fixed  and  the  removable  disk  platters  on  the 
model  2230  disk.  The  system’s  main  program  requires  approximately  12k 
bytes  for  the  common  subroutines  and  variables.  Four  3k-byte  segments 
are  overlaid  when  necessary  for  the  implementation  of  the  various 
commands.  The  various  segments  are  stored  on  the  fixed  disk  platter. 
The  system  assumes  that  the  data  are  saved  on  tape  cassette  and  is 
modelled  around  this  concept. 

A technique  for  using  RECALL  data  bases  in  the  BASIC  program  is 
described  in  appendix  A.  The  source  code  for  RECALL  is  listed  in 
appendix  B. 


2.  DATA-BASE  DESCRIPTION 

The  RECALL  system  is  designed  to  store  a given  collection  of  related 
data  and  to  access  and  update  this  information,  the  "data  base."  A data 
base  is  divided  into  "records";  each  record  consists  of  one  or  more 
"fields";  each  field  contains  a datum  such  as  a number  or  a string  of 
characters.  All  records  in  a data  base  contain  the  same  number  of 
fields  arranged  in  the  same  order. 

A field  may  contain  data  from  1 to  32  characters  in  length,  and  a 
record  may  contain  up  to  120  characters.  There  can  be  a maximum  of  15 
fields  in  a record.  The  entire  data  base  can  contain  approximately 
78,000  characters,  i.e.,  the  amount  of  storage  on  a Wang  1251  tape 
cassette.  The  data-base  name  can  be  one  to  eight  characters  in  length. 


^-RETRIEVE,  Tymshare , Jnc.  Palo  Alto , CA  (1971). 
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A field  is  referenced  by  its  name,  which  can  be  one  to  eight 
characters.  It  must  begin  with  a letter  and  can  contain  only  letters, 
digits,  and  periods*  The  following  names  cannot  be  used  because  they 
are  reserved  for  commands:  AND,  FOR,  FROM,  IN,  NOT,  ON,  OR,  and  WITH. 

A field  can  be  of  either  character  or  numeric  type.  A character 
field  can  contain  any  character  on  the  keyboard,  whereas  a numeric  field 
can  contain  only  numbers.  A character  field  is  specified  by  the  letter 
C when  defining  the  data  base.  There  are  two  kinds  of  numeric  fields, 
integer  and  noninteger.  An  integer  field  cannot  contain  decimal  points, 
whereas  a noninteger  field  can.  However,  a noninteger  field  cannot  use 
the  E format  number  (allowable  in  Tymshare) . An  integer  field  is 
specified  l>y  the  letter  I;  a noninteger  field,  N. 

2.1  Command  Description 

The  RECALL  system  is  operated  by  the  specifying  of  a set  of 
commands  (tables  I to  IV)  to  manipulate  the  data  base.  The  general 
format  of  a command  is  the  following: 


[range  list]  command  [FOR  condition] 


Only  the  first  three  characters  need  be  typed  for  all  commands  except 
REPORT  (REPO  must  be  used) . The  range  list  allows  the  user  to  specify 
which  records  within  the  data  base  should  be  considered  for  that 
command.  The  list  can  be  of  three  types: 


a.  A single  record  number  (e.g.,  ,,45") 

b.  A range  of  records,  consisting  of  a pair  of  numbers 
separated  by  a colon  (e.g.,  ”15:20”  means  records  15  to  20) 

c.  Any  combination  of  single  number  or  range;  the  record 
numbers  are  separated  by  semicolons  (e.g.,  "15 ; 18 : 20 ; 25"  means  records 
15,  18,  19,  20,  25) 

Up  to  five  combinations  (four  semicolons)  can  be  specified.  If  a range 
list  is  not  specified  for  a given  command,  then  it  is  assumed  that  the 
whole  data  base  is  to  be  used. 

The  Wang  implementation  of  RECALL  uses  a semicolon  rather  than 
a comma  as  a separator.  Warning:  A comma  should  never  be  typed  for  any 
command  within  the  RECALL  system.  The  blank  space  is  not  acceptable  as 
a separator  for  the  range  list.  The  ” $"  cannot  be  used  to  specify  the 
last  record. 
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TABLE  I.  DATA  BASE  CREATION  AND  ACCESS  COMMANDS 


Command 

Func  t i on 

CREATE  data  base 

Creates  new  data  base  with  given  name  (destroys 
presently  active  data  base  in  system) 

APPENO  (FROM  data  base) 

Allows  records  to  be  added  to  data  base  from 
keyboard  or  from  data  base  on  tape 

LOAO  data  base 

Loads  data  base  from  tape  into  storage  as  active 
data  base 

MERGE  ON  field  list 
(FROM  data  base) 

Merges  data  base  on  tape  with  present  data  base 

[range]  SAVE  TO  data 
base  [FOR  option] 

Saves  present  data  base  on  tape 

STRUCTURE 

Oisplays  field  structure  of  data-base  records 

SIZE 

Oisplays  number  of  records  in  data  base 

QUIT 

Ends  RECALL  program 

TABLE  II.  DISPLAY  COMMANDS 


Command 


Funct ion 


[range]  LIST  [field  list] 
[FOR  option] 


Oisplays  data-base  records  for  specified  fields 
with  record  numbers  and  field  headings  included 


[range]  PRINT  [field  list] 
[FOR  option] 


Same  as  LIST,  except  no  record  numbers 


[range]  FAST  [field  list] 
[FOR  option] 


Same  as  PRINT,  except  no  heading 


[range]  COUNT  [FOR  option] 


Counts  number  of  records 


[range]  SUM  expression 
list  [FOR  opt  ion] 


Oisplays  data  base  totals  for  each  expression 
(five  max) 


[range]  AVERAGE  expres- 
sion list  [FOR  option] 


Displays  data-base  average  values  for  each 
expression  (five  max) 
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TABLE  III.  UPDATING  COMMANDS 


Command 

Function 

[range]  CHANGE 
[FOR  option] 

[field  list] 

Allows  selected  fields  to  be  changed  in 
record 

[range]  DELETE 

[FOR  opt  ion] 

Deletes  selected  records 

[range]  REPLACE  field]  with 
expression]  [ ; f i e 1 d 2 WITH 
expression2; . . .]  [FOR 
option] 

Replaces  selected  fields  with  any 
des i red  express i on 

SORT  ON  field 

list 

Ascending  sort  of  data  base 

TABLE  IV.  REPORT  GENERATION  COMMANDS-- [RANGE  LIST] 
REPORT  ["FOR"  CONDITION] 


RECALL  prompt 

User  responses  allowed 

1 

REPORT  OUTPUT  TO 

T (to  display)  or  data  base  name 
(to  save  on  tape) 

2 

REPORT  FORM  NAME 

Name  (if  blank,  skip  to  4) 

3 

UPDATE  REPORT  FORM 

Y or  N (if  N,  old  report  form  is  used) 

4 

HEADING 

Y or  N 

5 

DOUBLE  SPACE 

Y or  N 

6 

TOTALS 

Y or  N (if  N , skip  to  10) 

7 

SUBTOTALS 

Y or  N ( if  N,  skip  to  9) 

8 

BY  ITEMS 

List  of  items  (record  fields)  on  which 
to  subtotal  (three  fields  max) 

9 

SUMMARY  REPORT  ONLY 

Y or  N 

10 

COL  WIDTH: CONTENTS 
1 

Column  width;  expression  (requests 
description  of  each  column  in 
report--end  with  RETURN  to  column 
prompt  (15  columns  max) 

11 

COL  HEADING 
1 

Heading  (requests  column  headings) 
(10  characters  per  row  max,  three 
rows  max) 

12 

COLUMNS-TOTAL;  NO  OF 
DECIMAL  PLACES 
column  number 
prompt 

Y or  N;  number  of  decimal  places 
(prompted  for  each  numeric  column) 
(five  columns  max) 

13 

COLUMNS  NO  OF 
DECIMAL  PLACES 
column  number 
prompt 

Number  of  decimal  places  (asked  if 
totals  were  not  requested) 
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2 . 2 Expressions  and  Conditions 


The  FOR  condition  allows  the  user  to  further  specify  on  which 
records  a command  is  to  operate.  For  example,  LIST  FOR  SIZE  > 100  lists 
all  records  in  the  data  base  for  which  the  field  name  SIZE  has  a value 
greater  than  100. 

A condition  is  a combination  of  expressions.  Hence,  first 
expression  must  be  defined. 

A numeric  expression  can  be  any  of  the  following: 

a.  A number 

b.  A numeric  field  name 

c.  Any  meaningful  combination  of  number  and  numeric  field 
name,  using  arithmetic  operators 

The  following  operators  are  allowed:  f , * , /,  + , and  -. 

Warning : Unary  negation  is  not  allowed.  One  must  use  "0-5"  to 

represent  "-5." 

A character  expression  can  be  any  of  the  following: 

a.  A string  enclosed  in  single  quotation  marks  (Double 
quotation  marks  are  not  allowed.) 

b.  Any  character  field  name 

c.  Any  meaningful  combination  of  string  and  field  name,  with 
the  operator  + used  for  string  concatenation 

A condition  may  consist  of  numeric  expressions  or  character 
expressions  related  by  these  relational  operators:  < (less 
than) , > (greater  than) , = (equal  to) , # (unequal  to) , <=  (less  than  or 
equal  to) , >=  (greater  than  or  equal  to) . 

The  long  form  (e.g.,  LESS  THAN  for  <)  allowable  in  Tymshare 
RETRIEVE  was  not  implemented  in  Wang  RECALL. 

Another  condition  consists  of  character  expressions  related  by 
the  operator  IN  (or  NOT  IN) . This  operator  specifies  that  one  string  is 
(or  is  not)  contained  in  another. 

The  relational  expressions  can  be  combined  by  using  the 
following  logical  words,  listed  in  descending  order  of  precedence: 


9 


Word  Meaning 

NOT  NOT  A is  true  if  A is  false. 

AND  A AND  B is  true  only  if  A and  B are  both  true 

OR  A OR  B is  true  if  either  A or  B or  both  are  true. 

Conditions  in  RECALL  are  always  preceded  by  the  FOR  modifier 
and  always  have  a value  of  true  or  false. 

Parentheses  may  be  used  in  expressions  and  conditions  to 
specify  the  order  of  operations.  For  example f " (4+3) *5"  has  the  yalue 
35,  but  "4+3*5"  has  the  value  19 T 

In  evaluating  an  expression  or  condition,  three  rules  goyern 
the  order  in  which  operations  are  performed: 

a.  All  operations  with  the  innermost  set  of  parentheses  are 
performed  first;  then  those  within  each  succeeding  outer  set  are 
performed. 

b.  Without  violating  rule  a,  operations  are  performed  in  the 
following  order: 

i 

* and  / 

+ and  - 

<,  > r ~ r t 

IN,  NOT  IN 

NOT 

AND 

OR 

c.  Without  violating  rules  a and  b,  operations  are  performed 
left  to  right. 
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2 . 3 Line  Continuation 


If  there  is  not  enough  room  to  enter  the  entire  command  (or 
input  data  record)  on  one  line,  the  user  can  type  the  character  and 
then  proceed  to  the  next  line.  If  this  character  is  not  used  and  the 
command  runs  over  into  the  next  line,  the  remaining  portion  of  the 
command  is  ignored.  A field,  name,  number,  or  string  cannot  be 
continued  from  one  line  to  the  next.  The  user  should  backspace  to  erase 
the  information  just  entered,  then  type  the  and  begin  the 
information  on  the  next  line. 

2 • 4 Field  and  Expression  Lists 

The  field  list  contains  one  or  more  field  names  separated  by 
semicolons.  (in  Tymshare,  commas  are  used.)  The  expression  list 
contains  one  or  more  expressions  separated  by  semicolons. 

2.5  Running  RECALL  System 

The  user  should  check  that  the  equipment  is  turned  on, 
including  the  master  switch  for  the  central  processing  unit  (CPU)  and 
cathode  ray  tube  (CRT) . Someone  authorized  must  turn  on  the  disk.  if 
he  desires  hard  copy,  the  user  should  turn  on  the  line  printer  (depress 
the  POWER  and  SELECT  buttons) . 

The  system  is  loaded  by  keying 
LOAD  DCF  "RECALL" 


RUN 


To  end  every  command,  the  RETURN  button  is  keyed. 
The  system  responds  with  this  message: 

RECALL  SYSTEM-REVISION  8/22/75 


DATE  (MM/DD/YY) ? 

The  first  line  gives  the  present  revision  date  of  the  system 
ifus^Tif  line  requests  the  present  date.  This  date  subsequently 

a repor  is  generated  or  a data  base  is  saved  on  tape . The 

an^yelr611  ^ US±n9  ^ d±git  C°de  f°r  ^ month'  day, 
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The  system  is  now  ready  for  the  user  to  manipulate  the  data 
base  by  typing  commands.  The  system  responds  "COMMAND?"  and  the  user 
inputs  the  desired  command.  The  system  performs  the  appropriate 
operations  and  then  prompts  for  a new  command.  If  the  format  of  the 
command  is  wrong , the  system  prints  "ILLEGAL  COMMAND"  and  the  user  must 
reenter  his  command.  When  the  user  is  finished  with  the  system,  he 
should  enter  the  command  QUIT.  This  command  halts  the  system. 

2.6  Hard-Copy  Capability 

The  system  is  designed  to  generate  all  displays  at  the  CRT.  If 
the  user  wishes  to  print  out  on  a hard-copy  unit,  he  should  respond  to 
the  command  prompt  by  keying  HALT/STEP  and  then  typing  in  the  desired 
command.  The  system  responds  with  a colon.  The  user  can  type 

SELECT  PRINT  XXX (YYY) 

to  indicate  the  hard-copy  unit  XXX  (e.g.,  "215")  and  the  column  width 
YYY  (e.g.,  "132").  He  then  keys  "CONTINUE."  The  system  generates  the 
printout  at  the  hard-copy  unit.  When  he  wants  to  return  the  display  to 
the  CRT,  the  user  can  again  respond  to  the  command  prompt  by  keying 
HALT/STEP  and  then  the  command.  After  that,  he  should  type  this: 

SELECT  PRINT  005(64) 

2.7  Data-Base  Maintenance 


The  system  always  operates  on  the  active  data  base  that  is 
stored  in  the  memory  and  on  a disk.  Whenever  any  operation  is  performed 
to  alter  the  data  base  (e.g.,  sorting  or  deleting),  the  active  data  base 
is  changed  and  the  previous  state  is  destroyed.  Warning;  The  user 
should  save  pertinent  copies  of  the  data  base  on  tape  before  commanding 
a status  change.  In  Tymshare,  the  old  version  of  the  data  base  is  saved 
under  a different  name,  and  the  user  is  asked  if  he  wishes  to  maintain 
this  old  version. 

2.8  Tape  Handling 

For  all  commands  requiring  tapes,  the  system  prints  the  message: 
MOUNT  TAPE  AND  TYPE  CONTINUE 

2 . 9 Differences  between  Tymshare  RETRIEVE  and  Wang  RECALL 

The  Tymshare  (T)  RETRIEVE  and  Wang  (W)  RECALL  differ  as 

follows : 
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a.  T uses  a comma  or  blank  as  a field  separator;  W,  a 
semicolon. 

b.  T uses  $ for  the  last  record  indicator;  W does  not. 

c.  In  T,  names  have  10  characters;  fields,  24;  and  records, 

185;  there  can  be  18  fields.  In  W,  names  can  be  only  8 characters; 

fields  32;  and  records,  132.  There  can  be  only  15  fields. 

d.  A floating  point  numerical  format  (E)  is  allowed  in  T,  but 

not  in  W. 

e.  The  ALL,  BINARY,  IF,  RECNO,  RESULTS,  SCRAMBLED,  SEQUENCED, 
FIELDS,  and  SYMBOLIC  key  words  have  been  implemented  in  T,  but  not  in  W. 

f.  The  commands  SORT  and  MERGE  use  BY  in  T,  but  ON  in  W. 

g.  The  command  BASE  is  used  in  T,  but  only  LOAD  is  used  in  W. 

h.  SORT  and  MERGE  lists  need  not  be  specified  and  can  be 
greater  than  three  fields  in  T;  SORT  and  MERGE  lists  must  be  specified 
and  cannot  be  greater  than  three  fields  in  W. 

i.  The  operator  NOT  can  be  used  with  IN  and  OUT  in  T,  but  only 
with  IN  in  W. 

j.  The  long  form  for  relationships  in  T is  not  used  in  W. 

k.  Lines  are  continued  by  using  the  line  continuation  key  in 

T,  but  the  operator  in  W. 

l.  In  T,  10  columns  max  can  be  totalled  in  the  command  REPORT, 
and  10  fields  max  can  be  used  to  determine  subtotals.  In  W,  five 
columns  max  can  be  totalled  in  the  command  REPORT,  and  three  fields  max 
can  be  used  to  determine  subtotals. 

m.  In  T,  10  fields  max  and,  in  W,  5 fields  max  can  be  summed 
or  averaged  by  using  the  command  SUM  or  AVERAGE. 

n.  In  FOR  conditions,  string  constants  can  use  double 
quotation  marks  in  T,  but  only  single  quotation  marks  in  W. 

o.  Editing  is  done  with  control  characters  in  T,  but  with  the 
BACKSPACE  and  LINE/ERASE  keys  in  W. 

p.  An  old  version  of  a data  base  saved  in  T is  not  saved  in  W 
when  a command  such  as  SORT  is  executed. 
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q.  The  command  LOAD  can  be  used  to  create  a new  data  base  in 
T,  but  not  in  W. 

r.  The  space  between  fields  generated  in  the  command  REPORT 
when  saving  the  report  in  a file  is  included  in  the  field  width  in  T, 
but  not  in  W. 


s.  The  expression  list  used  in  the  commands  SUM  and  AVERAGE 
need  not  be  specified  in  T,  but  must  be  in  W. 

t.  The  command  MODIFY  is  implemented  in  T.  The  command  CHANGE 
must  be  used  in  W. 

u.  In  T,  the  old  value  is  retained  when  CHANGE  is  commanded. 
In  W,  each  field  specified  for  an  edit  in  the  command  CHANGE  must  be 
specifically  entered  when  prompted;  if  not,  a blank  field  is  stored. 

v.  The  headings  on  a report  can  have  20  characters  max  for  any 
column  on  any  line  in  T,  but  10  in  W. 


3.  DATA-BASE  CREATION  AND  ACCESS  COMMANDS 

Certain  commands  create  and  access  the  data  base. 

3 . 1 Creating  Data  Base 

The  command  CREATE  [data  base]  creates  the  data  base.  If  the 
user  does  not  specify  the  data-base  name  (one  to  eight  characters) , the 
system  prompts  with  "DATA  BASE?"  RECALL  does  not  allow  either  binary  or 
scrambled  data  bases  as  RETRIEVE  does. 

As  soon  as  the  command  is  entered,  any  data  base  active  in  the 
system  is  destroyed.  The  system  prompts  with 

PLEASE  TYPE  IN  THE  STRUCTURE  OF  YOUR  DATA  BASE 

FIELD  NAME; WIDTH; TYPE ; DECPL 

The  system  then  prompts  with  a field  number,  and  the  user 
enters  the  desired  name;  width;  type  (I,  N,  or  C) ; and,  if  N,  the  number 
of  decimal  places.  If  the  user  prematurely  ends  the  line  without 
entering  all  the  information  or  enters  incorrect  information,  the  system 
prompts  for  each  piece  of  information  separately  until  the  entire  field 
is  entered.  The  user  responds  to  the  FIELD  prompt  by  keying  the  command 
RETURN  when  all  the  fields  have  been  entered. 
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I^l°  PromPt  for  the  actual  record  data,  the  system  first  displays 
the  sequence  of  field  names.  The  user  enters  each  record  that  ends  with 
a command  RETURN.  He  ends  the  record  prompt  by  keying  RETURN  at  the 
beginning  of  a record.  (The  character  J symbolizes  RETURN  in  this 
report.)  If  the  user  prematurely  ends  the  record  without  entering  all 
the  fields  or  if  he  enters  an  incorrect  field  value,  the  system  prompts 
for  the  remaining  field  values  in  the  record  by  first  displaying  the 
field  name.  The  record  can  be  continued  on  the  next  line  by  using  the 
operator  The  system  prints  the  number  of  records  stored  for  the 

data  base,  as  in  this  example: 

1 CUSTOMER; 15 ;C J 

2 AGE;3;I/ 

3 PRICE; 8 ;N; 2 j 

4 ; / 

CUSTOMER; AGE; PRICE 

APPLE;20; 18.10  J 

PEAR; 14; 22 j 

GRAPE; 84; 171. 45 J 

3 RECORDS 

The  values  of  all  character  fields  are  stored  left  justified  in 
the  data  base.  The  values  of  the  numeric  fields  are  stored  right 
justified.  If  a numeric  field  is  specified  as  having  three  decimal 
places,  then,  when  the  value  is  entered,  the  appropriate  number  of 
trailing  zeros  is  added  (with  a possible  decimal  point)  before  the  value 
is  stored  in  the  data  base. 


The  data  base  is  how  defined  and  can  be  manipulated  by  all 
other  commands.  However,  this  active  data  base  does  not  have 

permanent  storage.  Only  the  command  SAVE  allows  a data  base  to 
saved . 


the 

any 

be 


3.2  Adding  to  Data  Base 

The  command  APPEND  (FROM  data  base)  allows  the  user  to  add 
records  to  the  present  data  base.  If  the  "FROM  [data  base]"  is 
excluded,  the  system  prompts  for  the  records  to  be  entered  from  the 
keyboard  as  in  the  command  CREATE.  If  a data-base  name  is  included,  the 
system  prompts  with  this: 
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MOUNT  TAPE  AND  TYPE  CONTINUE 


The  user  loads  the  tape,  and  the  system  reads  all  the  records  from  the 
tape  and  adds  them  to  the  active  data  base.  The  records  must  be  in  the 
exact  format  as  the  active  data  base.  If  the  name  on  the  tape  disagrees 
with  the  name  in  the  command,  the  system  prints  "WRONG  DATA  BASE"  and 
indicates  an  illegal  command.  After  all  the  records  are  loaded,  the 
system  prints  the  new  record  size  of  the  data  base.  The  RETRIEVE 
modifiers  SEQUENCED  and  FIELDS  are  not  implemented  in  RECALL. 

3 . 3  Loading  Data  Base 


The  command  LOAD  [data  base]  is  used  to  load  a data  base  that 
has  previously  been  saved  on  tape.  If  the  name  on  the  tape  disagrees 
with  the  name  on  the  command,  the  system  prints  "WRONG  DATA  BASE"  and 
indicates  an  illegal  command.  The  system  displays  "DATABASE  [name]  LAST 
SAVED  [date]  HAS  BEEN  LOADED." 

If  the  user  does  not  type  the  data-base  name,  the  system 
prompts  with  "DATABASE?" 

This  command  differs  slightly  from  that  in  RETRIEVE:  in 
RECALL,  the  command  can  be  used  only  to  load  a previously  created  data 
base,  not  to  create  a new  data  base  (also,  the  word  BASE  cannot  be  used 
as  a substitute  for  LOAD) . 

3.4  Merging  Data  Bases 

The  command  MERGE  ON  [field  list]  FROM  [data  base]  allows  the 
user  to  merge  data  from  a data  base  stored  on  tape  into  the  active  data 
base.  The  two  data  bases  must  be  presorted  in  the  order  that  is 
desirable  for  the  merge.  The  two  data  bases  also  must  have  identical 
record  structures.  The  field  list  can  contain  from  one  to  three  fields 
in  the  order  of  the  desired  merge,  as  in  this  example: 

MERGE  ON  AGE,  SALARY  FROM  PERSON 

(In  RETRIEVE,  the  ON  field  list  is  optional.)  In  the  example,  the  data 
base  PERSON  is  merged  with  the  active  base  with  respect  first  to  AGE  and 
then  to  SALARY. 

3 . 5 Saving  Data  Bases 

The  command  SAVE  TO  [data  base]  saves  the  active  data  base  on 
tape.  It  is  one  of  the  commands  that  can  use  only  a selected  set  of 
records.  The  system  prompts  with 
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MOUNT  TAPE  TO  SAVE  DATABASE -TYPE  CONTINUE 
and  then  saves  the  selected  set  of  records. 

3.6  Displaying  Data-Base  Structure 

The  command  STRUCTURE  is  used  to  display  the  field  description 
of  the  records.  The  heading 

FIELD;  TYPE;  WIDTH;  NAME 

is  displayed,  and  then  the  field  information  is  given.  If  the  field  is 
numeric  (N) , the  width  includes  the  number  of  decimal  places. 

3.7  Displaying  Data-Base  Size 

The  command  SIZE  displays  the  number  of  records  in  the  data 

base . 


4.  DATA-BASE  DISPLAY  COMMANDS 

Commands  are  available  for  displaying  selected  information  from  the 
data  base.  All  commands  can  have  a record  range  list  and  FOR  condition. 

4.1  Displaying  Set  of  Records 

The  commands  LIST,  PRINT,  and  FAST  are  all  used  to  display  a 
set  of  records.  The  command  LIST  prints  out  the  field  names  as  a 
heading  and  includes  the  record  numbers.  The  command  PRINT  does  not 
have  record  numbers,  and  the  command  FAST  does  not  have  record  numbers 
or  a heading.  If  no  field  list  is  given,  all  fields  for  each  record  are 
displayed  in  the  order  that  they  are  stored.  The  field  width  is  used  to 
determine  the  space  used  in  displaying  each  field.  One  extra  space  is 
placed  between  each  field  for  clarity.  If  a field  list  is  given,  the 
display  contains  the  data  values  for  each  record  in  the  order  that  they 
are  specified  in  the  field  list.  The  number  of  records  displayed  is 
given  after  the  records  are  displayed. 

For  example,  if  the  data  base  contains  the  fields  CUSTOMER, 
AGE,  and  PRICE  and  record  5 contains  CITRUS ; 45 ; 21 . 23 , the  command  5 FAST 
produces  this: 


CITRUS  45  21.23 

The  command  5FAST  PRICE; AGE  produces  this: 
21.23  45 


17 


4 . 2  Counting  Records 


The  command  COUNT  is  used  to  determine  the  number  of  records 
that  satisfies  a given  condition.  The  system  displays  the  record  count. 
Without  the  FOR  condition,  the  command  COUNT  is  identical  to  the  command 
SIZE.  This  is  an  example: 

COUNT  FOR  SALARY>4500  AND  AGE<29 

4 . 3 Summing  Expressions 

The  command  SUM  expression  list  is  used  for  totalling  specified 
numeric  fields  or  expressions.  There  can  be  five  expressions  max  in  the 
list.  For  example, 

SUM  SALARY; AGE* SALARY  FOR  AGE >30 

computes  the  sum  for  all  salaries  and  the  sum  of  the  product  of  the  age 
times  the  salary  for  all  records  where  the  age  is  greater  than  30. 

The  system  prints  out  the  expression  list  before  displaying  the 
sums.  The  number  of  records  used  also  is  displayed.  Unlike  in 
RETRIEVE,  the  expression  list  must  be  specified  and  only  numeric  fields 
can  be  used  in  RECALL. 

4.4  Averaging  Expressions 

The  command  AVERAGE  expression  list  is  used  for  averaging 
expressions.  The  usage  is  identical  to  that  of  the  command  SUM. 

5.  DATA-BASE  UPDATING  COMMANDS 

Commands  update  the  information  in  the  data  base. 

5.1  Changing  Record  Fields 

The  command  CHANGE  [field  list]  allows  the  user  to  change 
selected  records  or  selected  fields  within  a record.  If  the  field  list 
is  not  specified,  the  entire  record  is  updated.  If  the  list  is  given, 
only  those  fields  are  updated.  For  the  range  of  specified  records,  the 
system  displays  the  following: 

[field  name]  [old  value]? 
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The  user  enters  the  new  value.  This  prompt 
each  specified  field  in  the  record.  As  an  example, 
record  for  the  customer  APPLE  contains  32  as  his  age 
should  be  updated  to  35. 


is  repeated  for 
assume  that  the 
and  the  value 


CHANGE  AGE  FOR  CUSTOMER  = 'APPLE' 

The  system  responds  with  the  following  line  up  to  the  colon: 
AGE  32?  35 


The  user  responds  with  "35,"  and 
command  MODIFY  (the  same  as  the  command 
value  displayed)  is  not  implemented. 


the  record  is  updated.  The 
CHANGE,  but  without  the  old 


5 • 2 Deleting  Records 


the  rano/u  command  DELETE  deletes  a selected  set  of  records  based  on 
the  range  list  and  FOR  condition.  If  both  options  are  omitted,  the 
antire  data  base  is  deleted. 


5.3  Replacing  Records 


expression  “Tf , Tt?  I£i<,ld>  WI™  [>*11*2  WITH 

* 2'  ' : allows  the  user  to  replace  selected  fields  with  any 

sired  expression.  The  command  is  especially  useful  when  the  user 

wishes  to  change  a number  of  records  in  the  same  way,  since  the  user 

CHANGE*  the  changes  for  each  record  separately  as  for  the  command 

CHANGE . For  example , 


REPLACE  AGE  WITH  AGE *2 

doubles  the  value  of  all  ages 
updated,  so  that  if  it  appears 
REPLACE,  the  new  value  is  used. 


in  the  data  base.  AGE  is  immediately 
in  a later  expression  in  the  command 


5.4  Sorting  Records 


The  command  SORT  ON  [field  list]  allows  the  user  to 
ascending  sort  on  as  many  as  three  fields  in  a data  base, 
list  must  be  included.  (It  may  be  omitted  in  RETRIEVE.) 


perform  an 
The  field 
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6 . REPORT  GENERATION 


The  command  [range  list]  REPORT  [FOR  condition]  initiates  report 
generation.  If  neither  the  range  list  nor  FOR  condition  option  is  used, 
all  the  records  in  the  data  base  are  reported. 

After  the  command  is  issued,  the  system  dialogues  with  the  user 
(table  IV)  after  first  requesting  the  user  to  mount  a report  tape. 

a.  If  the  user  responds  T,  the  report  appears  on  the  line  printer. 
Otherwise,  the  report  is  saved  on  tape  as  a data  base  with  the  specified 
name.  All  the  records  specified  in  the  command  are  saved  using  the 
fields  defined  in  prompt  (table  IV) . This  tape  can  then  be  used  to  set 
up  a new  data  base.  The  user  creates  the  new  data  base  with  the  command 
CREATE  and  then  uses  the  command  APPEND  to  read  the  records  from  the 
tape.  This  feature  is  especially  helpful  in  restructuring  a data  base. 

b.  The  name  specified  by  the  user  is  shown  on  all  report  forms. 

c . If  the  answer  is  NO,  the  system  gathers  all  the  necessary 

information  from  the  report  tape. 

d.  If  the  answer  is  YES,  the  system  contains  column  headings  and 

is  formatted  into  pages  8-1/2  x 11  in.  (21.6  x 27.9  cm). 

e.  If  the  answer  is  YES,  only  the  body  of  the  report  is  double 

spaced;  headings  and  totals  are  single  spaced. 

f.  If  the  answer  is  YES,  the  system  accumulates  totals  of  report 
columns  containing  numeric  data.  The  user  specifies  which  columns  of 
the  report  are  to  be  totalled  by  responding  to  the  COLUMNS  TOTALS 
question.  Five  columns  max  can  be  totalled. 

g.  If  the  answer  is  YES,  the  report  shows  subtotals  for  numeric 
report  columns  each  time  that  the  value  of  a selected  data-base  field 
changes . 


h.  A list  of  fields  (separated  by  semicolons)  is  given  for  which, 
after  a change  in  value  for  any  field,  a subtotal  is  generated.  Three 
fields  max  can  be  specified. 

i.  If  the  answer  is  YES,  only  total  and  subtotal  headings  and 
values  are  shown  on  the  report.  Individual  records  do  not  appear. 

j.  The  column  contents  are  specified.  The  user  ends  the  prompt 
with  the  command  RETURN  following  the  column  number,  as  in  this  example: 
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COL 


1 WIDTH; CONTENTS 

2 WIDTH; CONTENTS 

3 WIDTH; CONTENTS 


8; LOT J 

8;PRICE*QTY^ 


Fifteen  columns  max  can  be  specified.  The  system  displays  a blank  space 
between  each  column.  Unlike  in  RETRIEVE / these  extra  columns  do  not 
count  when  a data-base  tape  is  generated. 


k.  The  column  headings  are  specified.  The  system  prompts  with  the 
column  number.  By  being  separated  with  slashes,  the  heading  can  be 
spread  over  three  lines.  Each  line  can  be  10  characters  max,  as  in  this 
example : 


COL  HEADING 


1 

2 


LOT/ I DENT J 
COST  J * 


The  actual  page  heading  looks  like  this: 


LOT  COST 
IDENT 


l.  The  columns'  totals  and  decimal  place  information  are  requested 
for  all  the  numeric  fields.  The  system  prompts  with  the  appropriate 
column  number,  as  in  this  example: 

COLUMNS-TOTALS;  NO  SPACE  OF  DECIMAL  PLACES 

2 Y,2 j 

The  number  of  decimal  places  must  be  specified.  If  it  is  specified  as 
zero,  the  field  is  considered  integer.  In  this  example,  column  1 is  not 
prompted.  This  field  is  character  and  not  numeric. 

m.  This  question  is  asked  only  if  the  user  has  not  requested 
totals.  During  the  dialogue,  if  the  display  output  feature  is  chosen, 
the  program  is  stopped,  and  the  user  is  requested  to  type  the  select 
print  option  desired. 

If  the  heading  has  been  requested,  the  following  block  of 
information  appears  in  the  upper  left  corner  of  every  page. 
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PAGE  [number] 

DATE:  [MM/DD/YY] 

DATABASE:  [name] 

REPORT  FORM:  [form  name] 

If  subtotals  have  been  requested,  the  following  appears  before  each 
new  subtotal  group: 

* [field  name]:  [field  value] 

The  can  also  be  either  "**"  or  "***,"  depending  on  the  line  of  the 

subtotal . 

This  follows  the  subtotal  group: 

* TOTAL  FOR  [field  name] : [field  value] 

The  set  of  totals  appears  under  the  appropriate  columns.  If  totals  have 
been  requested,  the  following  appears  at  the  end  of  the  report: 

**  GRAND  TOTAL  ** 

The  set  of  totals  appears  under  the  appropriate  columns. 

7.  EXAMPLE  OF  RECALL  SYSTEM 

Figures  1 to  9 illustrate  the  various  capabilities  of  RECALL. 
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: LOAD  OCR  11  RECALL" 

: RUN 

RECALL  S VS TEN  -REVISION  8/22/75 

DATE C MM/DD/VV ) ? 8/22/75 

COMMAND?  CREATE  FUZEFILE 

PLEASE  TVPE  IN  STRUCTURE  OF  DATA  BASE 

NAME;  WIDTH;  TVPE;  DEC PL 

1 ? MFR;  5;  C 

2 ? LOT;  10;  C 
S ? SIZE;  4;  I 

4 ? REJECTS;  7;  I 

5 ? RE J.  SIZE;  8;  N;  2 

6 ? 


MFR  ; LOT  ; SIZE 

? RVB;  R7001;  100;  2;  0 
? HP;  HP001;  105;  2;  © 

? UCR;  UCR2001;  80;  4;  0 


V HAM;  H1001;  20 U;  8;  0 


? RVB;  R7002;  102;  2;  0 
? RVB;  R70O2;  92;  1;  © 

? HP;  HP ©0 2;  102;  2;  © 

? UCR;  UCR 20 02;  81;  2;  8 


; REJECTS  ; REJ.  SIZE; 


8 RECORDS 
COMMAND?  LIST 


RECNO 

MFR 

LOT 

1 

RVB 

R7001 

2 

HP 

HP  001 

2 

UCR 

UCR2001 

4 

HAM 

H1001 

5 

RVB 

R70©2 

6 

RVB 

R7602 

r 

HP 

HP©  02 

© 

UCR 

UCR2002 

8 RECORDS 

COMMAND?  PRINT  MFR.;  : 

MFR 

SIZE- 

RVB 

100 

HP 

105 

UCR 

80 

HAM 

200 

RVB 

102 

RVB 

92 

HP 

102 

UCR 

0_L 

;ize 

REJECTS 

REJ.  SIZE 

100 

2 

0.  00 

105 

2 

0.  00 

80 

4 

0.  G0 

200 

y 

0.  00 

102 

0.  00 

92 

i 

0.  00 

102 

2 

0 00 

81 

2 

0.  00 

8 RECORDS 

Figure  1*  Example  of  RECALL  run  for  CREATE  and  LIST  commands. 
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COMMAND?  1,  3:  51. 1 ST  MFR 


REGNO  MFR 

1 RVB 

3 UCR 

4 HAM 

5 RVB 


4 RECORDS 


COMMAND? 

REJECTS 

SIZE 

COMMAND? 


3 : 4 CHANGE  REJECTS:. 
4?  5 
88?  84 

PRINT  LOT; REJECTS 


SIZE  FOR  MFR-  UCR  *' 


FOR  REJECT S>3 


LOT- 


REJECTS 


UCR 3 001 
H1001 


2 RECORDS 

COMMAND?  DELETE  FOR  MFR='HAM" 

COMMAND?  REPLACE  SIZE*  WITH  2*SIZE; REJ.  SIZE  & 
? WITH  <!  REJECTS/SIZE  >*108  FOR  REJECTS>8 
COMMAND?  LIST 


RECNO 

MFR 

LOT 

SIZE 

REJECTS 

REJ.  SIZE 

1 

RVB 

R70O1 

200 

2 

1.  00 

2 

HP 

HP001 

210 

—• 

1.  44 

7 

UCR 

UCR3001 

163 

5 

2.  99 

4 

RVB 

R7002 

286 

3 

1.  44 

5 

RVB 

R70O3 

134 

1 

55 

£« 

HP 

HP002 

206 

ci. 

. 99 

r* 

UCR 

UCR 30 02 

162 

3 

1.  88 

7 RECORDS 

Figure  2. 

Example 

of  RECALL 

run  for  CHANGE  and 

REPLACE  commands 
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COMMAND?  SUM  REJECTS  FOR  MFR=*'RVB*' 

REJECTS  FOR  MFR='RVB' 

6 ; 

2 RECORDS 

COMMAND?  SUM  REJECTS*SIZE 
REJECTEES I ZE 
2570  ; 

7 RECORDS 
COMMAND?  APPEND 

MFR  s LOT  ; SIZE  ; REJECTS  ; REJ.  SIZE; 

? HP;  HP003;  106;  5;  0 
? RVB;  R7064;  95;  2;  0 
? UCR 

LOT  ? UCR 2001 2 

SIZE  ? 9© 

REJECTS  ? 6 
REJ.  SIZE?  O 
? 

10  RECORDS 

COMMAND?  REPLACE  REJ.  SIZE  WITH  C REJECT S/S I ZE > *100  & 
? FOR  REJ.  SIZE-01 
COMMAND?  LIST 


RECNO 

MFR 

LOT 

SIZE 

REJECTS 

REJ.  SIZE 

1 

RVB 

R7001 

280 

2 

1.  00 

2 

HP 

’HP  0i  01 

210 

2 

1.  44 

2 

UCR 

UCR 20 01 

168 

5 

2.  99 

4 

RVB 

R 7 0i  01 2 

206 

2 

1.  44 

5 

RVB 

R7002 

184 

1 

. 55 

S 

HP 

HP  0t  01 2 

206 

•~i 

d 

. 99 

7 

UCR 

UCR  2 0i  02 

162 

2 

1.  88 

8 

HP 

HP  0i  02 

106 

5 

4.  77 

9 

RVB 

R70104 

95 

2 

2.  11 

10 

UCR 

UCR2002 

90i 

6 

6.  66 

10  RECORDS 

Figure  3.  Example  of  RECALL  run  for  SUM  and  APPEND  commands. 
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COMMAND?  SORT  ON  MFR;  LOT 
COMMAND?  LIST 


REGNO 

MFR 

LOT 

SIZE 

REJECTS 

REJ.  SIZE 

1 

HP 

HP  001 

210 

1.  44 

2 

HP 

HP  002 

206 

2 

. 99 

3 

HP 

HP 00 3: 

106 

5 

4.  77 

4 

RYB 

R7801 

200 

2 

1.  00 

5 

RVB 

R7002 

206 

3 

1.  44 

6 

RYB 

R7003 

184 

1 

. 55 

7 

RVB 

R7004 

95 

2 

2.  11 

8 

UCR 

UCR 3 001 

163 

5 

2.  93 

9 

UCR 

UCR 3 002 

162 

3 

1.  38 

10 

UCR 

UCR3003 

30 

6 

6.  66 

10  RECORDS 

COMMAND?  SAVE  TO  FUZE 

STOP  MOUNT  TAPE  TO  SAVE  DATABASE-TYPE  CONTINUE 
■.CONTINUE 

COMMAND?  REPLACE  MFR  WITH  MFR+'S' 

COMMAND?  MERGE  ON  MFR  FROM  FUZE 

STOP  MOUNT  TAPE  AND  TVPE  CONTINUE 
: CQNT  l’NUE 
COMMAND?  LIST  MFR 


NO 

MFR 

1 

HP 

Cm 

HP 

3 

HP 

4 

HPS 

5 

HRS 

6 

HPS 

—v 

1 

RVB 

8 

RVB 

y 

RVB 

10 

RVB 

11 

RVBS 

12 

RVBS 

13 

RVBS 

14 

RVBS 

15 

UCR 

16 

UCR 

17 

UCR 

18 

U L-  R 3 

19 

UCRS 

20 

OCRS 

20  RECORDS 

Figure  4.  Example  of  RECALL  run  for  SORT  and  MERGE  commands. 
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COMMAND?  SIZE 
RECORDS 

COMMAND?  DELETE  FOR  MFR> •' I ' 

COMMAND?  LIST  . 

RECNO  MFR  LOT  SIZE  REJECTS  REJ  SIZE 

1 HP  HP001 

2 HP  HP 00 2 

3 HP  HP 00 3 

4 HF'S  HP001 

5 HF'S  HF'002 

6 HP'S  HP00Z 

S RECORDS 

COMMAND?  APPEND  FROM  FUZE 

STOP  MOUNT  TAPE  AND  TVPE  CONTINUE 
: CONTINUE 
COMMAND?  LIST  MFR 

RECNO  MFR 


2 HP 

3 HP 

4 HPS 

5 HPS 

6 HPS 

7 HP 

8 HP 

9 HP 

10  RVB 

11  RVB 

12  RVB 

13  RVB 

14  1JCR 

15  IJCR 

16  UCR 

16  RECORDS 

Figure  5.  Example  of  RECALL  run  for  SIZE,  DELETE,  and  TAPE  APPEND 
commands. 


21G 

“■ 

1.  44 

206 

2 

QQ 

106 

5 

4.  77 

210 

ji' 

1.  44 

206 

2 

99 

106 

5 

4.  77 
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COMMAND?  STRUCTURE 
FIELD  TV PE  WIDTH  NAME 


1 

C 

5 

MFR 

■“I 

c 

10 

LOT 

I 

4 

SIZE 

4 

I 

r* 

REJECTS 

5 

n 

Ci 

2 REJ.  SIZE 

COMMAND?  1; 2 : 2;  10 : 16  SAVE  TO  FUZE 

STOP  MOUNT  TAPE  TO  SAVE  DATABASE-TYPE  CONTINUE 
: CONTINUE 

COMMAND?  LOAD  FUZE 

STOP  MOUNT  TAPE  AND  TYPE  CONTINUE 
; CONTINUE 


DflTRBRSE  FU 

ZE  LAST  SA\ 

,'ED  8/22/75  HRS 

: BEEN  LORDED 

COMMAND?  LI 

ST 

REGNO  MFR 

LOT 

SIZE  REJECTS 

REJ.  SIZE 

1 HP 

HP001 

210  2 

1.  44 

2 HP 

HPO02 

266  2 

99 

3 HP 

HP  003 

106  5 

4.  77 

4 RVB 

R7001 

260  2 

1 00 

5 RVB 

R7002 

206  2 

1 44 

6 RVB 

R7063 

184  1 

55 

7 RVB 

R7004 

95  2 

2.  11 

8 UCR 

UCR3001 

168  5 

2.  99 

9 IJCR 

UCR3Q02 

162  2 

1.  88 

10  IJCR 

UCR 30 03 

90  6 

6.  66 

10  RECORDS 

COMMAND?  COUNT  FOR  REJECTS?-!  AND  MFE='" RVB ' 


3 RECORDS 

COMMAND?  AVERAGE  REJ.  SIZE; REJECTS 
REJ.  SIZE.;  REJECTS 

d.  d 

10  RECORDS 

Figure  6*  Example  of  RECALL  xrun  foir  STRUCTURE r LOAD*  COUNT r and 
AVERAGE  commands. 
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COMMAND?  REPORT 


STOP  -MOUNT  REPORT  TAPE  AND  TYPE  CONTINUE 
•.CONTINUE 

REPORT  OUTPUT  TO?  T 

REPORT  FORM  NAME?  FUZE  RECORD 

UPDATE  REPORT  FORM?  VES 

HEADING?  YES 

DOUBLE  SPACE?  NO 

TOTALS?  VES 


SUBTOTALS?  VES 

BV  ITEMS?  MFR 

SUMMARY  REPORT  ONLY?  NNO 


1 WIDTH; CONTENTS? 

2 WIDTH;  CONTENTS? 

3 WIDTH; CONTENTS? 

4 WIDTH;  CONTENTS? 

5 WIDTH; CONTENTS? 

6 WIDTH; CONTENTS? 
COL  HEADING 

1 ? MAN U- /FACT 

2 ? LOT  NAME 

3 ? SIZE 


6;  MFR 
10;  LOT 
4;  SIZE 
7; REJECTS 
8;  C REJECTS/ 


4 ? REJECTS 

5 ? //REJECTS 

COLUMNS- TOTALS;  NO  OF  DECIMAL 
3 ? VES,  O 


4 ? YES;  0 


SIZE  > *±00 


PLfiCES 


NO;  2 


STOP  SELECT  PRINTER  RND  TVPE  CONTINUE 
: CONTINUE 


Figure  7.  Example  of  REPORT  command* 
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PAGE  i 

DATE:  8/22/75 

DATABASE:  FUZE 

REPORT  FORM:  FUZE  RECORD 


MHNU 

FftCT 

- LOT  NAME 

SIZE  REJECTS  X 

REJECTS 

MFR  . HP 

HP 

HP0S1 

210  3 1-  44 

HP 

H P'002 

296  2 . 39 

HP 

UP  00  2 

106  5 4.  77 

♦TOTAL  FOR  MFR 

. HP 

522  10 

+ 

MFR  : RVB 

RVB 

R7061 

200  2 1.  00 

RVB 

R7002 

206  1 1.  44 

RVB 

P.7003 

184  1 • 55 

RVB 

P.7004 

95  2 2.  11 

♦•TOTAL  FOR  MFR  RVB 

685 

* MFR  UCR 


UCR  UCR3001 

168 

5 

2.  99 

UCR  UCR3002 

162 

3 

1.  88 

UCR  UCR3003 

90 

6 

6.  66 

♦♦  GRAND  TOTAL  * 

# 

h-:+: 

1627 

cL 

Figure  8 . Example 

of  REPORT 

command 

continued . 
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COMMAND'?  REPORT 


STOP  -MOUNT  REPORT  TRPE  AND  TVPE  CONTINUE 
.CONTINUE 

REPORT  OUTPUT  TO?  FILE 
REPORT  FORM  NAME?  BLANK 
UPDATE  REPORT  FORM?  VES 
HEADING?  NO 
DOUBLE  SPACE?  NO 
TOTALS?  NO 

1 WIDTH;  CONTENTS?  5;  MFR 

2 WIDTH; CONTENTS?  10; SIZE 

3 WIDTH;  CONTENTS? 

COLUMNS—  NO  OF  DECIMAL  PLACES 

2 ? 0 

STOP  LOAD  DATA  TAPE  AND  TVPE  CONTINUE 
: CONTINUE 

COMMAND?  CREATE  TEST 

PLEASE  TVPE  IN  STRUCTURE  OF  DATA  BASE 

NAME;  WIDTH;  TVPE;  DEC PL 

1 ? MFR;  5;  C 

2 ? SIZE;  10;  I 


MFR  ; SIZE 


0  RECORDS 

COMMAND?  APPEND  FROM  FILE 

STOP  MOUNT  TAPE  AND  TVPE  CONTINUE 
: CONTINUE 
COMMAND?  LIST 


REGNO  MFR  SIZE 

1 HP  210 

2 HP  206 

3 HP  106 

4 RVB  200 

5 RVB  206 

6 RVB  184 

7 RVB  95 

8 UCR  168 

9 UCR  162 

10  UCR  90 


10  RECORDS 
COMMAND?  QUIT 

STOP  “PROGRAM  COMPLETED 


Figure  9.  Example  of  REPORT  command  to  generate  tape. 
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APPENDIX  A. — USING  RECALL  DATA  BASE  IN  BASIC  PROGRAM 


Page 

SUMMARY 

Figure  1.  Listing  of  ACCESS 35 
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APPENDIX  A . — SUMMARY 


It  is  possible  to  take  the  RECALL  data  base  stored  on  tape  and,  with  a 
call  to  a subroutine,  retrieve  the  fields  for  each  record  in  the  data  base. 
Hence,  the  user  can  write  his  own  BASIC  programs  to  manipulate  the  data  base 
that  was  originally  created  using  RECALL.  The  two  routines  are  called 
DEFFN'81  and  DEFFN'62.  They  appear  in  lines  9001  to  9011  in  the  file  ACCESS. 
There  is  also  a dimension  statement  in  line  1.  The  user  loads  the  file  and 
then  adds  the  appropriate  statements  to  define  the  operations  he  wishes  to 
perform . 

The  user  calls  DEFFN'81  once  to  set  up  the  data  tape  and  read  in  the 
structured  information.  The  definition  of  each  variable  is  given  in  the 
program  listing  (fig.  A-l) . The  user  then  calls  DEFFN'82  each  time  a new 
record  is  desired.  The  system  returns  the  set  of  fields  in  the  array  W8$ () . 
The  record  counter  U8  is  initially  set  to  the  number  of  records.  When  it 
reaches  zero,  all  the  records  have  been  read. 

For  example,  read  in  the  data  base  that  contains  numeric  information  in 
fields  3 and  4 that  should  be  checked  to  determine  how  many  records  have 
identical  values  in  the  two  fields. 

LOADDCF  "ACCESS" 

10  REM**  I IS  COUNT 

20  REM  SET  UP  TAPE:  GOSUB ' 81 

30  IF  U8=0  THEN  90 

40  REM  READ  RECORD:  GOSUB '82 

50  CONVERT  W8$(3)  TO  X:  CONVERT  W8$  (4)  TO  Y 

60  IF  X<> Y THEN  30 
70  REM  FIELDS  ARE  SAME 
80  1=1+1:  GOTO  30 

90  PRINT  "COUNT  ON  RECORDS  WITH  IDENTICAL  FIELDS  3 and  4-"; I 
100  STOP 
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APPENDIX  A 


1 r>  I M X84-  < 1.7  > 11,  W8«  < 15  > 32,  V8*  < 12  > 20 

9001DEFFN •' 81 : REM  INI  T I ATE  TAPE  READ  . T 8=12  S8=20 

9802PFM  X8*-FILE  NAME.;  X8-#  OF  20  CHAR  BLOCKS.;  Y81-DATE;  V8-#  OF  B 

I OCKS/PfcCORD;  X8*0 -FIELD  INFO.:  28-#  OF  FIELDS  IN  RECORD 

9803REM  F I ELD=  C 1—8 > —NAME; 9- WIDTH  IN  BIN; 10-TVPE:  11-DEC.  PL  IN  BIN 


90 04 STOP  "MOUNT  TAPE  AND  TYPE  CONTINUE" : DATA  LOAD  "STRUCT" : DATA 
I OAD  X8$,  X8,  Y81,  V8, XS1 T > , 28 : U8=X8/V8 : DATA  LOAD  "FILE " : RETURN 
9005DEFFN'82:REM  READ  RECORD : S8=20 

900 SR EM  T8-BL0CK  COUNT;  S8-CHRR  COUNT;  U8- END  OF  FILE  INDICATOR;  W3 
fO -ARRAY  OF  FIELDS  IN  CHAP  FORM 

9007FOR  R8=l T 0 78 : Q8=VAL < STR  < X81 < R8 > , 9, 1 > > : W8$ < R8  > = " " • P3=l 
9008S8=S8+1 : IF  S8C21THEN  9009 : SS=3 : T8=T8+1 : I F T8<1 3THEN  9009 : DAT 
A LOAD  Y8*0:T8“1 


9009N8=Q8  : I F S8+Q8— K21THEN  901  0 : NS=21-SS 

9 0 1 0 Q 8 = Q 8 - N 8 : STR< W8* <R8>, P8,  N8>=STR<V8#<T8),  S8,  N8 > : S8-S8+N8-1 : P8 
-P8+N8 : IF  Q8>0THEN  9008 
90 11 NEXT  R8 : U8=U8-1 : RETURN 


Figure  A-l.  Listing  of  ACCESS. 
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APPENDIX  B.— LISTING  OF  SOURCE  CODE 


SUMMARY 
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APPENDIX  B.--  SUMMARY 


Appendix  B gives  a brief  description  of  the  program  developed  to 
implement  the  RECALL  system.  The  data  base  is  organized  as  a sequence  of  20 
byte  blocks.  Each  record  has  its  fields  concatenated  with  no  separating 
characters.  However,  every  record  uses  an  integral  number  of  blocks.  Hence, 
if  the  actual  number  of  characters  in  the  record  is  61,  four  blocks  are  used, 
but  if  the  number  is  60,  then  three  blocks  are  used.  There  are  12  blocks  to 
a sector,  i.e.,  the  space  permitted  for  a Wang  physical  record  (max  253 
bytes) . At  any  time,  five  sectors  are  in  memory  and  are  called  a page.  xhe 
remaining  sectors  are  saved  in  temporary  storage  on  the  removable  disk  (line 
2080  to  2399) . 

A description  of  the  important  variables  in  the  program  is  given  in 
table  B-I . The  precedence  table  used  for  evaluating  conditions  is  given  in 
table  B-II . 

The  main  program  is  stored  in  the  file  RECALL.  It  handles  the  general 
structure  of  a command  and  contains  all  the  general-purpose  subroutines.  The 
file  RETR1  handles  the  commands  QUIT,  CREATE,  APPEND,  LOAD,  SAVE,  and  CHANGE. 
The  file  RETR2  handles  the  commands  MERGE  and  SORT.  The  file  RETR3  handles 
the  commands  LIST,  PRINT,  FAST,  STRUCTURE,  SIZE,  SUM,  AVERAGE,  COUNT, 
REPLACE,  and  DELETE.  The  file  RETR4  handles  the  command  REPORT . . The 
definitions  of  all  the  subroutines  are  given  in  table  B-III.  The  listing  of 
all  the  program  files  appears  in  figures  B-l  to  B-5. 
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APPENDIX  B 


TABLE  B-l.  VARIABLE  DEFINITIONS 


Name 

Mean i ng 

Data  base 

format 

R$  (1-60) 

Page  of  blocks 

R1 

Present  block  index  within  page 

RO 

Present  page  index  in  memory 

R2 

Number  of  blocks  allowed  in  memory  (60) 

R3 

Last-used  character  index  in  present  block 

Rk 

Number  of  sectors  per  page  (five) 

Structu  re 

file 

F$ 

File  name 

Fk 

Number  of  blocks  in  file 

FI  $ 

Fi le  date 

FI 

Number  of  blocks  per  record  in  file 

F$(l-I7) 

Field  format  for  record  (bytes  1 to  8:  name 

BIN,  10:  type  (l,C,N),  11:  number  of  dec 

FO 

Number  of  fields  in  record 

Range  list 

R6 

Number  of  range  pairs 

RO (1-5) 

Starting  record  index 

RlO-5) 

Ending  record  index 

Genera  1 

CO 

Command  index 

CD 

<y> 

i 

KJl 

Field  values  for  record 

10 

Number  of  fields  in  field  list 

L$15 

Field  index  table  for  list 

C 

Count  on  1/0  buffer 

o 

<y> 

i 

ho 

1/0  buffer  for  records 

Cl  $ ( 1- 1 2) 

1/0  buffer  for  records 

FOR  cond i t i on 

05(1-12). 

Conditon  string  stack 

P$ (1-80) 

Condition  operator  stack 

DO 

Number  entries  in  condition  stack 

D 1 

Value  of  condition  (I:  true,  0:  false) 

D2 

Position  of  first  condition  stack  entry  foll< 

Eb 

Number  of  string  constants  in  stack 

E5 

Number  of  numerical  constants  in  stack 

E2 

Number  of  string  expressions  less  constant  ii 
stack 

El 

Number  of  numerical  expressions  less  constan 
number  stack 

E(l-10)  • 

Condition  number  stack 

T$  ( 1 — 1 0) 

Temporary  terminal  stack 

E3 

Number  of  terminals  in  temporary  stack 

width  in 
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TABLE  B-l.  VARIABLE  DEFINITIONS  (Cont'd) 


Name 

Mean i ng 

SORT-MERGE 

D$  (1-12) 

Output  buffer  to  temporary  disk  file 

18 

Count  on  blocks  in  D$ 

B$(l-3) 

Field  values  for  first  file 

B$ (6-8) 

Field  values  for  second  file 

E4 

Number  of  pages  for  command  SORT 

Q 

Number  of  records  in  present  page  to  sort 

RO  (1-2) 

Index  of  last  record  for  files  1 and  2 

E (6-7) 

Index  of  record  processed  for  files  1 and  2 

E(9‘10) 

Fetch  indicator  for  files  1 and  2 (1:  fetch) 

R0(3-k) 

Block  index  for  files  1 and  2 

E(V5) 

Index  of  sector  for  files  1 and  2 

G(l-3) 

Block  index  for  field  in  record 

E(l-3) 

Character  position  for  field  in  record 

R1  (1-3) 

Length  of  field 

Report 

variables 

H$ 

Data  base  name 

E$ 

Report  form  name 

G$(l) 

Heading  indicator 

G$  (2) 

Double  space  indicator 

G$(3) 

Totals  indicator 

GS(A) 

Subtotals  indicator 

GS  (5) 

Summary  report  indicator 

G (1  -5) 

Index  of  subtotal  item  field 

X2$ (1-15) 

Width  of  report  column 

X3$( 1- 1 6) 

Pointer  to  first  position  in  condition  stack 
express i on 

for 

SS (15,3) 

Heading  table  for  columns 

H$(l-15) 

Report  column  information  (byte  1:  type  [C,l, 

N], 

2:  total  [Y,N],  3-  number  of  decimal  places 

in  B 1 N) 

Tl 

Page  count 

T2 

Line  count 

T3 

Number  of  columns 

Tit 

Number  of  i terns 

X4(5, 1-3) 

Column  subtotals 

X4  (5 , 4) 

Column  grand  total 

H$  (1-3) 

Value  of  subtotal  item  field 

K9 

Pointer  to  last  position  in  condition  stack  before 

column  contents  information  (i.e.,  last  position 
of  FOR  condition) 
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TABLE  B-ll.  PRECEDENCE  TABLE  FOR 
CONDITIONS 


APPENDIX  B 


Code 

Precedence 

Name 

1 

0 

Numeric  field  name 

2 

0 

Numeric  constant 

3 

0 

Character  field  name 

4 

0 

Character  constant 

5 

15+0* 

( 

6 

0 

) 

7 

13 

t 

8 

12 

* 

9 

12 

/ 

10 

11 

+ 

11 

11 

- 

12 

10 

< 

13 

10 

> 

14 

10 

= 

15 

10 

a 

16 

10 

<= 

17 

10 

>= 

18 

9 

NOT 

19 

8 

AND 

20 

7 

OR 

21 

10 

IN 

22 

10 

NOT  IN 

23 

14 

- (Unary) 

24 

6 

WITH 

0 

FOR 

0 

• 

* Precedence  is  initially  15,  hut  is 
stored  in  the  stack  as  0. 
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TABLE  B-lll.  SUBROUTINE  DEFINITIONS 


1 ndex 

Definition 

1 

Reads  in  field  from  input  string 

2 

1 n i t i a 1 i zes  data  base 

3(C$,N) 

Checks  for  reserved  word  C$ 

k 

Converts  string  to  number 

5(N) 

Retrieves  page  containing  record  N 

6 

Loads  data  base  tape 

7 

Fetches  record  and  checks  for  condition  ( 1 4= 1 
indicates  record  is  to  be  used) 

8(H) 

Stores  field  in  record 

9(N) 

Retrieves  field  index  from  field-list  table 

1 0 (N ) 

Stores  field  index  in  field-list  table 

1 2 (M) 

Retrieves  field  in  record 

13 

Retrieves  record 

lit 

Stores  record 

16 

Stores  FOR  condition  on  stack 

1 9 (XI , X2) 

Evaluates  condition  stack  over  indices  X1-X2 

20 

Stores  data-base  structure  for  field 

21 

Reads  and  stores  data-base  field  value  after 
va 1 i da t ion 

23 

Reads  and  stores  field  list 

25 

Adds  constant  or  field  to  evaluation  stacks 

26 

Checks  for  string  in  string 

28 

Retrieves  expression  as  string  for  updating  field 

29(Y) 

Converts  number  to  string  in  proper  format 

31  (X) 

Saves  page  onto  disk 
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TABLE  B-l 1 1 . 

SUBROUTINE  DEFINITIONS  (Cont'd) 

APPENDIX  B 

1 ndex 

Def ini t ion 

3^4  Transfers  temporary  disk  file  onto  active  disk  file 

37  Saves  block  onto  temporary  disk  file 

*40  Selects  temporary  file  for  SORT-MERGE 

*4l  Defines  location  of  SORT-MERGE  fields  within  record 

*42  Fetches  field  value  from  active  file 

*43  Fetches  field  value  from  tape  file 

*4*4  Compares  active  and  tape  file  and  performs  merge 

*45 ( U ) Loads  sector  for  file  U 

*46 ( U)  Fetches  field  value  from  file  U 

*47  Compares  field  from  two  files  and  performs  merge 

53  ( X , Y ) Stores  field  or  constant  index  in  conditional  stack 

5*4  Checks  for  field  name  (X=1  if  there  is  a field  name) 

63  Updates  character  count  in  field  retrieval 

68  Fetches  record  to  save  in  I/O  buffer  after  checking 

FOR  condition 

69  Fetches  record  to  save  in  1/0  buffer 

70  Fetches  page  from  disk 

71  Stores  page  onto  disk 

91  Prints  page  heading  for  report 

92(J,K)  prints  subtotal  item  field  value 
93 ( K , Y ) Converts  numerical  column  value  to  string 

9*4 ( T ) Right  justifies  numerical  string 

95  Increments  line  count 

96  Prints  subtotal  values  for  numerical  columns 


97 


Prints  column  values  and  updates  subtotals 


APPENDIX  B 


20 C0I1  T T C 10 ') 1,  EC-10 ::>..  DT<12>20,  PT<80>1,  OTCIDI,  NTC4>3,  QTC24!>1,  XT1, 
G C 5 > , Dll'  C 12  > 20 

22  COM  I,  R2,  R4,  FI,  F5,  L,  14,  R6,  FI,  F4,  CO,  II,  FO,  Rl,  RO,  X,  XI,  X2,  V,  M,  N, 
17,  19,  K9,  J,  C,  16,  LO,  K,  DO,  Dl,  D2,  D3,  R3,  IS,  El,  E2,  E3,  V,  13,  15,  E4,  E5,  LI 
30DATA  "NAME",  "WIDTH",  "TYPE",  "DECPL",  "C", 


, "<",  ">",  " = "NOT",  "AND",  "OR",  "IN" 

40F0R  I=1TG  4: READ  F2TCI> : NEXT  I FOR  I=1T0  11 . READ  01 C I ) : NEXT  I: 
F OR  I =1TG  4 : READ  NT C I > : NEXT  I FOR  I -1T0  24 : READ  X : B I N C QT C I > > =X : N 
EXT  I : R2=60 : R4=5 : Fl=l 

50DATA  O,  0,  0,  O,  15,  O,  13,  12,  12,  11,  11,  10,  10,  10,  10,  10,  10,  9,  8,  7,  10,  10 
, 14,  6 


60 ON  ERROR  BT, CTGGTO  70 : GOTO  80 
7GPR1NT  "ERROR  BT.;  "-LINE  CT : GOTO  100 

80DATA  SAVE  DC  OPEN  R TEMP  , 2080,  2399 : DATA  SAVE  DA  R < 2399, BT> END 


90PRINT  "RECALL 


SYSTEM  -REVISION  8/2; 


5" ■ INPUT 


" DATE  C MM/DD/ YY  > " 


, FIT 

100D0, E4, E5, R6, D2=0  ; REM  READ  COMMAND : INPUT  "COMMAND",  AT . IF  NUMCA 
T-  > =0THEN  160  REM  READ  RANGES  F5=l 

110L=NUM<flT> : IF  L=0THEN  220 : BT=STRC AT,  1,  L> ; GOSUB  y4 : IF  I4=0THEN 
220  . IF  F5=2THEN  150  : R6=R6+1 : R0 C«R:6 > =X  : Rl < R6 > =X 

120XT=STR C AT,  L+l>  : AT=STRC AT,  L+l;'  : IF  XT=";  "THEN  130:  IF  XTO"  : "THE 
N 170 : F5=2 

130AT=STR C AT,  2> : GOTO  110 
150R1CRS>=X : F5=l  GOTO  120 
160R6=1 : RO  C 1 > =1 : Rl  C 1 =F4/F1 


170 REM  READ  COMMAND  TYPE 


180DATA  " QIJ I " , "CRE",  "AF‘P",  "SAV",  "LOA",  CHA",  "LIS",  "F‘RI",  "FAS",  "R 
EP",  "CGU",  "STR",  "SIS",  "SUM",  "AVE",  "DEL",’  "MER",  "SOR" 

190RESTGRE  44  : AT=STR  C AT,  F'OS  C ATO  " " > > : C1T=STR < AT,  1,  3 > : CO=0 
200  FOR  I— 1T0  18:  READ  C2T:IF  C2TOC1TTHEN  210.0:0=1:1=18 
210NEXT  I . IF  C0O0THEN  225 


220PRINT  "ILLEGAL  COMMAND" : GOTO  100 

225  IF  C0O1OTHEN  230  IF  STR  CAT,  4,  1:' O " 0 " THEN  230  : C0=19 
230AT=STRC AT,  PGSCAT="  ">> 

232  IF  C0>6THEN  233: IF  V=1THEN  245 : V=1 : DATA  SAVE  DC  CLOSE : LOAD  D 
C_R"RETR1"240, 1150 

233  IF  C0MSTHEN  234  : IF  V=3THEN  245  : V=3  : DATA  SAVE  DC  CLOSE  : LOAD 
DC  R"RETR3"240, 1150 


234 IF  C0=19THEN  235: IF  V=2THEN  245 : V=2 : DATA  SAVE  DC  CLOSE . LOAD  D 
C R"RETR2"240,  1150 


235 IF  V=4THEN  245 : V=4 : DATA  SAVE  DC  CLOSE : LOAD  DC  R"RETR4"24G, 115 
0 

240  REM  ***  START  OF  COMMANDS 
245  REM 

1150  REM  +■+■■*  END  OF  COMMANDS 


Figure  B-l.  Listing  of  RECALL. 
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1160DLTFN  1 REM  READ  IN  NEXT  FIELD:  IF  CllO "CHR " THEN  11?0:I1=1:B 
: RETURN 

Ufa  IF  Rl=".fi"THEN  1175;  Bl=fl$  : Il=P0S<ftl='U  " > : IF  I1=0THEN  1180- IF 
I:t=lTHEN  1190:Bl=STR<Bi,  1,  1 1-1  > GOTO  1200 
:'i  175 1.  NPUT  Hi : GOTO  1170 

118091="  " : IF  Bl="  "THEN  1210 . 11=1 : GOTO  1210 
11908$="  " 

1200R$=STR<R$,  1 1+1)  • 11=1 
1 210 RE TURN 

1220DEFFN  2 F0,  R 3 , R2,  R0,  F4=0  : DBRCKSPRCE  BEG  : L=P0S<fl$O"  " ) • IF  L 
- M l HEN  1230  : F1=STR<R$,  L>  : RETURN 
1 220 1 NPUT  " DRTRBRSE ",  FI ' RETURN 
1240DEFFN •' 3 C Cl,  N ) 

1.25U IF  LEN< R1 ) CNTHEN  1260  : IF  STRCRl,  1,  N)=C$THEN  1770  ■ R1—STRCR1,  2 
) : GOTO  1250 
1260N-0 : RETURN 

1 2?0R$=STR c: fl$,  N+l ) : R1=STR < fi$,  POS  < fil<> " " > > RETURN 
1 280 DEI-  F N 4 . REN  CONVERT  TO  NUMBER 

129014=0  : IF  B$="  "THEN  1300:  IF  NUM < B$ > =0THEN  1300:  IF  NHM<B$)<‘LE 
IKBDTHEN  1300  : CONVERT  B1TO  X : 14=1;  GOTO  1310 
1 3M0PR INI  "I LLEGRL  NUMBER " 

131 0RE TURN 

1320DEFFN ~ 6 : STOP  "MOUNT  TRPE  AND  TYPE  CONTINUE" : IF  C0=3THEN  1325 
:.MflTH  LORD  "STRUCT"  : DRTR  LORD  G$,  19,  H$,  FI,  F$<),  F0  : GOTO  1227 
i 325DRTR  LORD  "STRUCT" : DRTR  LORD  G$,  19 

13271 F R$=G$THEN  1330: PRINT  "WRONG  DRTRBRSF  ",  U$ • 1 9=0 • RETURN 
1 330DR1 R LORD  "FILE": RETURN 

1340DEF FN ^ S < M ) : REM  STORE  FIELD  I-N  RECORD  : K=1 

±250fe=R3+l : IF  R2<21THEN  1370  : R1=E1+1 : R3=l  IF  RK=R2THEN  1370  • GO 
SUB  '71 : R0=R0+1 : Rl=l 

1370GOSUB  " 63  : STR < R* <R1 ),  R3,  1 8 ) =STR  < B$,  k,  18):  K=K+ 1 8 • R3=R3+ 1 R-l  • j 
1 M>0THEN  1250: RETURN  * 

1400DF.FFN  12<M):REM  RETRIEVE  FIELD  IN  RECORD : B$="  " :K=1 
1410R3=R3+1  • IF  R3<21THEN  1440  : R2=l : R1=.R1+1 : I F RK=R2THEN  1420  GO 
SUB  • •"  70  : R0=R0+1 : Rl=l 

1420C=C+1 : I F 012THEN  1420  : Cl < C ) =R$  < R1 ) ; GOTO  1440 
143001$ < C— 12) =R$ < R1 ) 

1440GOSUB  'S3.STR<B$,  K,  I8)=STR<R$<R1),  R2,  18)  : R3=R3+Ifi-1  • K=K+I8  • I 

F M>0THEN  1410: RETURN 

1470LVFFFN  '13  : REM  RETRIEVE  RECORD 

1480FOR  I7=1T0  F0  : GOSUB  ' 12  < VRL <STR C FI C 1 7 ) , 9)  ) ) • R$  C 1 7) =B$ • NEXT  I 
7: RETURN 

1490DEEFN-14 • REM  STORE  RECORD 

1500FOP  1 7=11  0 F0  : B$=B$<I7>  : GOSUB  '8<VflL<STR<F$<  17),  9)  ) ) • NEXT  17 
•.RETURN 

1510DEFFN ' 5 c N ) • REM  INITIRTF  FETCH : N=<N-i)+Fl+l 

1520F5=IN  T < <N— 1)XR2)  :.R1=N -F5+R2-1 : DBflCK'SPflCE  BEG  IF  NC1THEN  152 
5 : DSK I P F5+R4S : GOSUB  '70 : R0=F5 : GOTO  1530 
1575R0=0 : R1=-F1 
1530RETURN 

1 5 4 0 D L F F N •'  9 < N ) : L=VRL<STk<L$,  N)  ) : RETURN 
•1L.50DEFFN  '10<N)  :BIN<STR<L$,  N))  = I : RETURN 


Figure  B-l.  Listing  of  RECALL  (Cont'd) . 
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1560DEFFW'16:Rth  SET  UP  FOR  COND : E3,  16=0 
1570 IF  R<<>”  "THEN  1580  16=1 .GOTO  1800 

1.580B#=STR<Flt^  1,  1)  : IF  BJP<>"  "THEN  1590  : fl*=STP<fl$,  2>  : GOTO  1580 
1590  IF  BIO  "A"  THEN  1600:  INPUT  8$.  GOTO  1570 
1.600 IF  BIO"  / "THEN  1620 : fl$=STR<fi$,  2> 

1.610 1 F E3=0THEN  1570  : FOR  I =E3TG  /lSTEP  -1 : D0=D©+1 : P*  C t>0  > =T  1C  I > : NE 
XT  I • E3-0 : GOTO  1570 

1620FOR  I =1T0  11  • IF  B$<>0$<  I > THEN  1640:  K=I+4  : IF  <K~12>*<K-13>O0 
THEN  1630  : IF  S7RCB*,  2,  1>0"  = "THEN  1630  : K=K+4  : n$=STR<R$,  2> 

1 63081=51 R < 81 , 2 > : GOT 0 1800 

1640NEXT  I • IF  BIO"  ' "THEN  1660  : E4=E4+1 : 81=STRC81,  2>  : L=P0SC81="  ' " 
> : IF  LO0 THEN  1650  : 1 6=2  GOT  0 1800 

1650DKE4>=STRC81,  1,  L-l  > : 81=STRC81..  L+l>  . GOSUB  '53C4,  E4>  : GOTO  157 
© 

166  0 E*  t = S T R Fi  t ..  1,  3>  : FOR  1=110  4:  IF  BIONIC  I >THEN  1688  : K- 1 +1?  : IF  S 
TRCflt,  5,  2>On  IN" THEN  167© : FI*=STRCfl*L  2>  : K=22 
t£/70fl$=STR<:fl$,  4 > : GOTO  1888 

1680NEXT  I :L=NUM<flt> : IF  L=0THEN  170©:  . IF  LCLEf-KRt  >THEN  1698  : L=LEN 
<flt> 

;1698E5=E5+1 : CONVERT  5TR<flt,  1,  L > T 0 E<E5>  : GOSUB  '53  <2,  E5>  : flt=STR<fl 
t, L+l>:GOTO  1578 
17©GBt=flt : 19=8 

l?10Xt=STR Rt..  1,  1 > : GOSUB  '54  : IF  X=0THEN  1728  : 19=19+1 : flt=STR<flt,  2 
y : GOTO  1718 

1720 1 F 1 9=8THEN  179© : B$=STR< Bt,  1,  I9> 

1 730 I F B$0 " FOR “ THEN  174©  D2=D8+E3+1 : GOTO  1610 

1 740 IF  BtO 11  FROI'V THEN  175©  : D2=D0+1 ; fi$=STR<fl$,  POS  <fltO"  n > > : RETLIR 
N 

1758 IK  BtO"  WITH"  THEN  176©  K=24 : GOTO  184© 

1 ‘7 6 ©FOR  I =1T0  F0  : I F BIOS TR < Ft  <I>,  1,  8 > THEN  17*w  : X=3  : I F STR < Ft  < I > 

, i©>  = ‘,Cn  THEN  1770 : X=1 

1770GOSUB  '53<X, I> : GOTO  1570 

1780NEXT  I 

179016=2 

1800 IF  1 60 J. THEN  18?©  • IF  E3O0THEN  1810 : RETURN 

181  ©FOR  1 9=E?T0  1£TEP  -1 : D0=D©+1 : Pt<D0>=Tt<  I9>  : IF  VflL < T t.<  I9>  >05 

THEN  1828: 16=2: RETURN 

18 26 NEXT  I 9 : RETURN 

1830 IF  1 602 THEN  1840  : RETURN 

1840 IF  E3O0THEN  1870 

1858 1 F E3=©THEN  I860  : I F KOU  THEN  1868  : X=VflL  < Qt  < VflL < Tt  < E3  > > > > : K= 
23  : IF  X<6THEN  I860  : IF  XM1THEN  1368 : K=ll 
1860E 3= E 3+1 : B I N < T t < E3  > > =K : GOTO  157© 

1870 IF  VBL<Tt<E3>  >05 THEN  1888:  IF  K06THEN  1850  : E3=E3-1 : GOTO  157 
© 

188©  I F VRL.  < Qt  < VflL < T t < E2  > > > > <VflL < Qt  <K>  > THEN  1850  : D©=D8+1  Pt  < D0 > =T 
t<E3> : E3»E3-1 : GOTO  184© 

1S9BDEFFN'53<X,  V>  : D©=D©+1 : B I N < Pt < D© > > =X  : D©=D©+1.  BIN < Pt  < D©  > > =V  : RE 
TURN 

1900PEFF N ' 54 : X=Q : IF  Xt=HEX < 2E > THEN  191©:  IF  *Xt<HEX < 3© > THEN  1920:1 
I-  X*>HEX<5A>THEN  1920: IF  Xt>HEX<3F> THEN  1910: IF  Xt >=HEX < 3fl > THEN 
! 928 
1910X=1 
•1928RETURN 

Figure  B-l.  Listing  of  RECALL  (Cont'd). 
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1930DEFFN '" 25  : I F I7>2THEN  1940 : E1=E1+1 : GOTO  1950 


±940E2=E2+1 
1 950 1 5=  1 5+1. : X=VRL  < P$  < 1 5 > ) : RETURN 
•i.960[)EFFN'26  : FOR  I7-1TQ  L.EN < B$ > -LEN < R$ ) +1 
# > > THEN  1970  • 1 7=1 : RE  TURN 
1970NEXT  17:1  7=0 RETURN 
•1930DFFFN'19<X1,  X2>  : D3=8  : E2=E4  : E1=E5 
1990FOR  I 5= XI TO  X2 : I7=VRL<P$< 15) > : IF 
."GOT  O 2000,  201.0,  2020,  2030 
2000f:i:iNVERT  B$<X>TO  ECEl)  GOTO  2400 
201. 0E  < El ) =E  <■.  X > : GOTO  2400 
20200$  < E2  >=B$  <.  X ) : GOTO  2400 
: GOTO  2400 

2'0S0:  IF  E1C2THEN  2050 


IF  R$OSTPCB$,  17,  LENCR 


1 7>4THEN  2040  : GOSUB  -'25  : ON 


2080: IF  E2C2THEN  2078 


2390 
=E2-  1. 


GOT 0 240.0 


2830D  $ < E2  > =D$  < X > 

2.040 1 F E1=E5THEN 
9050V=E<E:O 
2060 1 F E2=E4 THEN 
20?0B$=O$CE2> 

2080ON  17-6  GOTO  2090,2100,2110,2120,2140, 

.<0,  2250,  2270,  21.00,  2280,  2290,  2300,  231.0,  2320 
2W.80X=X'  V : GOTO  2390 
2180X=X+Y : GOTO  2390 
2110X=X/V . GOTO  2390 
2120  IF  E2-OE4THEN  2130  : X=X+V  • GOTO 
2130STR  < D$<  E2-1 > , LEN<R$)+1>=R$ : E2 
2:1.40X=X~V  • GOTO  2398 
2150 IF’  E20E4THEN  2160:  IF  X<VTHEN 
91 60 IF  R$<B$THEN  2330 : GOTO  2340* 

21701 F E20E4  l HEN  2180:  IF  X.TVTHFN 
2180 IF  R$>B$THEN  2330 : GOTO  2240 
21 98 IF  E20E4THEN  2200:  IF  X=VTHEN  2360  : GOTO 
2200  JF  R$=B$THE:N  2330  : GOTO  2340 
2210 IF  E20E4THEN  2220:  IF  XOYTHFN 
2228 IF  R$OB$THEN  2220  : GOTO  2340 
2230 IF  E20E4THEN  2240:  IF  X<=VTHEN 
9240 IF  R$OB$THEN  2330:  GOTO  2340 
2250 IF  E20E4THEN  2260:  IF  X>=VTHEN  2360  GOTO 
2260 I F 


X=E  < El— 1 > 
R$=0$CE2-i: 


150,  2170,  2190,  2210,  22 


2360 • GOTO '2378 
2 3 60:  G O T O 2'  3 7 0 


R$OB$THEN 
E 20  E 4 THEN 
R$<=B$THEN 
E20E4THEN 

R$>=B$THEN  2330 : GOTO  2340 
22 70E  C.  El  > =1-E  C El  > : GOTO  2400 
2280 IF  X+VO0THEN  2260 : GOTO  23 
2290GOSU8  '26: IF  I 7=1 THEN  2330 
2300GCJSUB  '26:  IF  I7=1THEN  2240 
231&E<E1  >=-£•' El)  : GOTO  2400 
2320GOSUB  " 28  D3= I 5 : GOTO  2400 
2330E  El+1 ) =1 ; GOTO  2250 
2340E.  < E 1 +1 ) =0 

2350E1=E1 +1 : E2=E2-2 : GOT  0 2400 
2360E  < F.l-1  > =1 : GOTO  2380 
370T.  < El  -1 ) =8  - 
280E1=E1-1 : GOTO  2400 
2 3 9 0 E 1 = E 1 - 1 : E<El)=X 
2400NEXT  15 

2410 IF  ElOESTHEN  2420  : RETURN 
242CDl=Ec;El^ : RETURN 


P’0 


2360 . GOTO  2370 


2360 : GOTO 


2270 


•& 

GOTO  234© 
GOTO  232© 


Figure  B-l.  Listing  of  RECALL  (Cont'd). 
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2430DEFFN'*?:  14=1:  R3»20:  GOSUB  '13  : IF  D2=0THEH  2440  . GOSUE:  '19<D2,  D 
«):  IF  D1-1THEN  2440:14=0 
2440RKTIJRN 
2 4 5 0 D E F F N ' 2 3 : 16=0 

2460 iF  04=="  "THEN  2480.:  GOSUB  '16  IF  I6=?THEN  2490:  IF  D0*<D2-1)=0 
f HEN  2480 : X=D0 : IF  D2=0THEN  2470 : X=D2-1 

2470FOR  L.0-1TO  X/2  : I=VflL<P$<2*L0)  ) : GOSUB  -'100.0)  : NEXT  L0  : RETURN 


24 80 FOR  I =1T0  F0 : GOSUB  ' 10 < I ) : NEXT  I : L0=F0 
2490RF.TURN 


2500DEFFN-' 28  : I6=VRL<P#<DS+2)  > N=0  : IF  STR<F$ C 160,  10,  DO"C"THEN  2 
51 0 • B$=D$CE2) : E2=E4 : GOTO  2518 

2510*1  F STR<F$<  16),  10, 1>  = " I "THEN  2515  : N=VRL<STRCF$<  IS),  11)  ) 
251.5G0SUB  •'  29  < E C El ) ) 

25170$= " " : STR  < 0$, 1+VRL < S T R < F$< 16 > , 9 > ) -LEN < B$ ) ) =B$ . B$=C$ 

25-1.88$ C T6)=B$  • RETURN 

2520DEFFN ' 29 < V ) : M1=INTCV*10~N) : CONVERT  M1T0  B$,  <############) : El 
=1:5 


2530 1 F STR<B$,  1, 1)0" 0” THEN  2540:  IF  LEN<B$XN+1THEN  2540 : B$=STR< 
B$, 2) : GOTO  2530 

2540 1 F M1>=0THEN  2550 : T=LEN C B$ ) : STR < R$,  2 ) =B$ : STR < B$,  1,1)  = "-" : B$= 
S HOE:*,  1,  T+l) 

2550 IF  N=0THEN  2560: T=LEN<B$) :STR<B$,  T-N+2>=STR<B$,  T-N+l) :STR<B* 
, I — N+l,  1)  = ".  " : B$=5TR<B$,  1,  T+l  > 


2560RETURN 

2580DEFFN" 21CX)  : IF  F1*J-INT<F1*J/R2)*R2=0THEN  2590:  IF  JORl<X)TH 
l-N  2SFS 

2590DBRCKSPRCE  R.2/12S  : GOSUB  " 71 
260ORETURN 

2610  PEFFN'34:DRTR  SRVE  DC  #2,  END  : DRTR  SRVE  DC  CLOSE# 2 : DRTR  LOR 
D DC  OPEN  F#2L  TEMP  j 2030/ 2399 : DBRCKSPRCE  BEG 

2620DRTR  LORD  DC  #2,  DSO  : IF  END  THEN  2630 : DRTR  SRVE  DC  C*<>  : GOTO 

26*20 

2630  DRTR  SRVE  DC  CL0SE#2 : F4=I9+F1  . RETURN 

2640DEFFr-T37  : 19=19+1 : IF  CC12THEN  2650  DRTR  SRVE  DC  #2,  CS-O  : FOR  I 
t>“lTO  12  ; CS < 1 5 > =C1*  (15)  : NEXT  1 5. : C~C-12 
2650 RE TURN 

2660DEFFN  •'  63  : 1 8=M  : I F R3+M-K21THEN  2670  : I8^21-R3 
2670M-M  - 1 S : RETURN 

2680DEFFN '70 : FOR  Z=1T0  R4  : DRTR  LORD  DC  D±$O:F0R  W*1T0  12:R*<<Z- 
1 > +12+ W } =D*l:f  < W > : NEXT  W : NEXT  Z : RE  TURN 

2690DEFF N ' 71 : FOR  Z=1T0  R4 : FOR  W^ITO  12 : D±# < M ) < C 2-1 > *12+10 : NEX 
T W : DRTR  SRVE  DC  D±$0:NEXT  Z:  RETURN 


Figure  B-l.  Listing  of  RECALL  (Cont‘d). 
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240DATA  l ORD  DC  OPEN  RTEMP  2080.  2399 
245GN  C0  GOTO  250,  260, 630, 750,  720,  840 

.•■...ii-iREM  •++1|I,IIT  : DATA  SAVE  DC  CLOSE  . STOP  F’ROGPRI'I  COMPLETED" 

260REM  ++CREATE  : GOSUB  '2 

270PRINT  "PLERSE  TVPE  IN  STRUCTURE  OF  DRTR  BASE" : PRINT  .FOR  I=1T 
O 3:  PRINT  F21<I>j  "j  ";  : NEXT  I PRINT  F?l<4> 

2801=0: PRINT  F0+1j  : INPUT  AS 

2S0 1=1+1: GOSUB  '20: ON  I l+l  GOTO  200,290.210.220 
300 IF  1=1 THEN  348 

310PRINT  F21<  I>j  : INPUT  A*: GOSUB  '20:  ON  I1+1GOTO  210,220,210,220 
3201=1+1 : GOTO  210 

230F0=F0+1 : F#<F0)=F21' : F5=F5+VAL < STR <F31 , R)  > • GOTO  280 
34 0F1=  1 N ( < < F5— 1 > *.  05 +1- 

350F5--R1 : PRINT  : FOR  • I=1T0  F0  : PRINT  STR<F1 < I ),  1,  A>;  »;  ",  • NE^'T  I • PP 
I NT  ' • ' 

360R3=20  1=0:1 NPUT  A* 

3701  = 1+1  GOSUB  '21:  ON  I1+1GOTO  380,270,390,360 
380 IF  I =1 THEN  410 

390PRINT  STR<Fia>,l,8>J  INPUT  A# : GOSUB  '21:  ON  I1+1GOTO.  290,400, 
:90,  360 

400 1=1+1: GOTO  290 

410F4=R0*R2+R1: PRINT  F4/F1,  "RECORDS  " GOSUB  '71  GOTO  100 
420PEFFN'20 

430GOSL1B  .'  1 : IF  I1=0THEN  510  : ON  I GOTO  440,460,480,46© 

440 IF  LEN < B1 ) <9THEN  450: PRINT  "FIELD  TOO  LONG ": 1 1=2 • GOTO  510 

450STR  < F31,  1,  8, »=B1 : GOTO  510 

460GOSUB  '4  IF  I4=1THEN  470 : I 1=2 : GOTO  5J 0 

4/0BIN<STR<F2l,  7+1  > >=X : IF  1=21  HEN  51.0  1 1=2:  GOTO  510 

480 IF  8$=" C" THEN  490 : IF  Bl=" I "THEN  490. IF  81=" N " THEN  500  PRINT  " 

ILLEGAL  TYPE" : 11=2: GOTO  510 

49011=3 

500STRCF31,  10 )=B1 
510RETURN 
520DEFFN ' 21 

530UOSUB  ’T:.  I F I1=0THEN  620 : M=VAL<STR<F1<  I >,  9>  : IF  B$= " "THEN  61 

0 

540 IF  STRCF1CI),  10,  1>  = "N"THEN  580: IF  M>=LEN < 81 > THEN  550  PRINT  "F 

ILLD  TOO  LONG" : 11=2 • GOTO  620 

550 IF  STR(Ff(I),  10,  1 > = " C " THEN  610 

56U I F NUM  < 81 ) >=LEN < 81 ) THEN  570:  PRINT  " ILL.EGAL  NUMBER"  • 11=2  • gu  m 
620  ' " * 

57801= " " : STR <01, 1+M-LEN<81> >=B1 : 8l=Cl : GOTO  610 

580N=VAL < STR <F4 < I ),  11>  > : L=P0S<B1=".  " > : IF  LO0THEN  590  • STR<81,  LEN 
< 81 5 +1  > = » : L=LEN  < B1  > : GOTO  600 

590I7=LEN<STR<81,  L+l,  LEN<B1>— L>> : IF  I7=NTHEN  560: IF  1 7<NTHEN  600 
:B1=STR<B1, 1,.LEN<B1>-1): GOTO  590 
6005TR<B$v  LENde#}*!^"©1'  : GOTO  5SG 

610REM  STORE  F I ELD : GOSUB  '8<M>  : IF  IOF0THEN  620  11=3 
620RE7URN 


Figure  B-2.  Listing  of  RETR1 . 
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APPENDIX  B 


630RFM  *»BPPEND 

640GOSUB  '5CF4/F1) :DBACKSPRCE  R2/12S : R1-R1+F1 : IF  fl*="  "THEN  350 : 
GOSUB  "3<  "FROM",  4)  : IF  N-0THEN  220:GOSUB  6:  IF  I9=0THEN  220 
650DATR  LORD  C$0  : IF  END  THEN  710 
670FOR  J=lTCi  12 

680R1=R1+1 : IF  R1>R2THEN  690 : R*<R1 >=C*<J >: GOTO  700 
690GOSUB  •'  71 : R0=R0  H : R1=0‘:  GOTO  680 
700NEXT  J : GOTO  650 

710F4=F4+I9: GOSUB  •'71 : REWIND  .GOTO  100 
720REM  ++LORD , 

730GOSUB  '2  A*=F*:.G05UB  '6:  IF  I9-0THEN  220 

V40PRINT  "DRTRBRSE  "jG#/"  LAST  SRVED  H$;  " HRS  BEEN  LORDED.  " : F4 
=•0 : GOTO  650 
750REM  ♦*SRVF 

760GOSUB  •'3<"T0",  2>  : IF  N-0THEN  220 

770G:*«STR<A$,  1,  POS<R  $="  ">>  : A$=STR<A*,  PGS<A$="  " > > : GOSUB  '16IF 
i 6=2THEN  220 

780STOP  " MOUNT  TRPE  TO  SRVE  DRTRBRSE-TVPE  CONTINUE"  REWIND  .DAT 
R SRVE  OPEN  "STRUCT"  : DRTR  SRVE  G*,  F4,  Fl$,  FI,  F*0  , F0  : DATA  SRVE  EN 
D : DRTR  SRVE  OPEN  "FILE":C=0 
79019=0 -.FOR  I=1T0  R6  : GOSUB  "5<R0<I)> 

808FOR  J=R0<  I )TO  RICO:  GOSUB  '68:  IF  I4=1THEN  810 :C=C-F1 : GOTO  820 

810I9=I9+F1 : IF  C<=12THEN  820 . DRTR  SRVE  C$0  : FOR  K=1T0  12:C$<K)«C 
1*00  : NEXT  K : C=C- 12 

820NEXT  J : NEXT  I : IF  C=0THEN  830: DRTR  SAVE  CS O 

830DRTR  SRVE  END  : REWIND  : DRTR  LORD  "STRUCT" : DATA  RESAVE  G$,  19,  F 
1*,  FI,  F*0,  F0  : REWIND  : GOTO  100 

840REM  **CHRNGF. : GOSUB  '23:  IF  I6=2THEN  220: FOR  I2-1T0  R6  : GOSUB  '5 
.< R0 < 1 2 > > : FOR  J=R0 < 1 2 > TO  R1 C 1 2 ) : C=0  . GOSUB  '7  : IF"  1 4=0THEN  860 
850FOR  I4=1T0  L0 -.GOSUB  '9<  I4>  : PRINT  STR<F*<L>,.1.,  8>  j " " ; B1  L > ; : B4: 
<L>="  INPUT  B$<L) : NEXT  14 : R3=20 : R1=R1-F1 : FOR  I=1T0  F0 : GOSUB  '2 
1 : NEXT  I 

860GOSUB  ' 31 < 1 2 > NEXT  J : NEXT  1 2 : GOTO  100 
1.081DEFFN  ^69  : FOR  I8=1T0  FI 

1082R1=R1+1 : IF  RK=R2THEN  1083:  GOSUB  ' 70  . R0=R0+1 : Rl=l 
1082C=G-H  : IF  012THEN  1084  : C*<fc>=R*<Rl  ):  GOTO  1085 
1084C1*<Ct>12>=RS  <R1> 

1085NEXT  I 8: RETURN 

1086DEFFN '68 : 1 4 =1 : I F D2=0THEN  1087 : GOSUB  ' 7 : RE  TURN 

1087GOSUB  '69 

1088RETURN 

Figure  B-2.  Listing  of  RETRl  (Cont'd). 
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240DRTR  LORD  DC  OPEN  RTEMP  ,2080,2399 
'c:'A  SON  C0-16GOTO  250,  500 

25BREM  **MERQE  : GOSUB  V3<  "ON",  2>  : IF  N=0THEN  o20  • rnei  IP  ."v?.T«r  o 

gosub22«,F  ”OM*1THEH  220:GOSUB  % 

: E“l7=i-p1D?™0LOfiC>  <**< > : 00SUB  '»<!>:  I1=F4.,F1 : I2-I9/F1 : 

270 IF  < I 1+1 > *X1-0THEN  280 : GOSUB  '4P 
288 IF  < 1 2+1  > *X2=0THEN  290  : GOSUB  •' 42 
..-0IF  1 1+ 1 2+2— 0THEN  300  r GOSUB  •'44' GOTO  570 
3OTI9-<F«-I9>/Fl:0flTR  SAVE  DC  #2,  0,  0:  GOSUB  'M  REWIND  : GOTO  100 

310OEmr4e: SELECT  #2310:DBTH  SHVE  DC  OPEN  F#2,  TEMP  ,2080,  2399 :R 

320DFF-FN-  41  ; IF  L0-C3THEN  320  : L0-7 

^^^e9?^;95,,:X=lT,F  L=1THE"  “»■ TOR  -1™  •--*:*** 

1 >=I,JT<  <*-*>»'  «”  « ■*< I >-VRL<STE< 

. ^i={1=  1 1-1 ' 1 F I1<0THEN  3?5:P1=R1+F1:  IF  R10R2THEN  360  G 

it+if-  OR  I =1T0  L0  : K=R1+G C I ) . R2=EC  I > : Bl  < I > = " • M-Rl U v T=l 

365R.<:=R3+1:IF  R3<21THEN  270 : R3=JK=K+1 
■i r'UL=M  : IF’  R3+M-K21THEN  273  : L=2±-R2 

' STR<B*a  >'  J'  L)=STR1'P$.::k>,  R2,  L>  : R3=R3+L-1  • J=J+L  • IF  M^QTH 
l-N  365:  NEXT  I:  RETURN  L n->UTH 

*?%&$  - 11  : RETURN 

i7<i3TheN  ^fo 

.! ... ...  _ ^ 1 J FIT '■.  I NEXT  I : DRT fl  LORD  C1T O ; 1 7- 1 7— ±2 

f;90FOR  I =1T0  1.0  : K=  1 7+G  U):  R2=E  < I > : BT  C I +5  > ■ 1 » • f1=Rl  < t i j=l 

:'95R3=R3+ 1 : IF  P3C21THEN  400  : R3=l : K=K+1 
400L=M  : IF  R2+M— K21THEN  405  l =21 -R'? 

T O^420~L  ‘ F K<1ITHEN  «»:STR<:e»<,«>,  4.  L>=STR<Clt(K-12>,  R3,  L>  : Go 
410STRCBT<  I+5>,  J,  L>=STR'.'CiX'K'>,  R2,  L '> 

return1"  ">0THEN  **■•*** I:R™“ 

55?Si^4404NEVT  II=1T0  L0  IF  B#<I>>B#0+5>THEN  460  IF  B*<IXB*<I  + 

VK0Sl2rSo^8=fR1T°  R1+F1-1' 18=18+1  IF  ‘^^HEN  450 : DRTfl  SR 
450DT < 1 8 > =RT  C J > ; NEXT  J : RETI JRN 

rSr®2XSoF?8=r,7TO  ,7+F1-1I8"S'1,F  '9C«THEN  +«-.M>TA  SB 

470 IF  J<13THEN  480 : D*< I8>=C1TC J-12)  GOTO  49H 

4 88DT C 1 8 > =CS (J)  ' 

490NEXT  J : RETURN 


Figure  B-3 . Listing  of  RETR2. 
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IF  I6=2T 


580RFU  ♦♦SORT  : GOSIJB  '2C  "ON'5  2)  : IF  N=0THEN  220  : GOSUB 
HEN  22P  : GO  SUE:  '41  • E4=INTC  CF4-1)XR2)+1  : Q-R2/F1 
51.0FOR  1 9—1  TO  E4  : I F F4>=  1 9+R2THEN  520  : 0=  c F4-  C 1 9 ) -+.R2 y /FI 
520GOSUB  '5C C 19— 1)*CR2/F1>+1>  IF  0=1 THEN  565 : I 1=0+ Q : FOR  R-1TO  Q- 
:V  : R1-1+  C R-2 > +F1 : T=R  : GOSIJB  •'  42  FOP  X=i  TO  L.0  : Bt  < 5+X  >=Bt '7  X > : NEXT  X 
5.30FOR  X=R+lTCi  B:  GOSIJB  '42:  FOR  X1=1T0  L0  IF  Bt C XI  > =Bt < Xl+5 ) THEN 
540:  IF  Bt C XI } >BtCXl+5 ) THEN  535  : T=X  : FOR  X2-1TO  t 0 • RtC vp+5 -,=Rf  ,'v?  i 

NEXT  X2  " •••-•• 

535X1 =LO 

54.GNEXT  XI : NEXT  X IF  T=RTHEN  560:  FOR  X:1=1T0  FI  At CXI  >=Rt < CR-1  v*f 
1+X1) 


550RtC  < R-l  > +F1+X1  > =Rt C CT-1>*F1+X1>  : Rtf  CT-l>+Fl+Xl)=rtCXl  > • NEXT  v 
1 

560NEXT  R 


565DE1ACKSRACE  R4S  : GOSIJB  '71:  NEXT  19 
570 IF  E4-1THEN  100 : X=2 

58011> I2=X+R2/CFl+2) : GOSUB  '40  18=0 : Z=— II : FOR  X1=1T0  E4STEP  X : 2= 
y-*  2* 1 ^ ~Z  ' E2=F4/F1— E < 7->  • I F E330THEN  590  : XI  =F4  • GOTO  F60 

59G IF  E3> I 2THEN  600- I2=E3 

600E C 6 >=E  C.7  ) — II  • R0 Cl)  =E < 6 > + 1 1 : R0C2)=EC7)+I2  : R0<3)  , R0C4>=1-F1  E<4 
-E f 6 ) +F1/12  : E < 5 ) =E  C 7 ) +F1/12  : GOSIJB  •' 45  C 1 ) : GOSUB  ' 45  C 2 > 

610FQR  I =1T0  12 : FOR  J=1T0  2 : Rtf CJ-1  >4:12+1  )=RtC  CJ+1) 4:12+1  )•  NEXT  .T 
; NEXT  I • GOSUB  ' 45  C 1 ) : GOSUB  ' 45  C 2 > : E < 9 > , E f.  10  >=1 
628 IF  CR0C1)-EC6)+1)*EC9>=0THEN  630  : GOSUB  '46 Cl) 

630 IF  CR0C2)-EC7)+1)*EC10)*-0THEN  640  GOSIJB  '46C2) 

640 1 F ■ R0 Cl ) -E < 6 ) +R0 f 2 ) +2-E C 7 ) =0THEN  650 : GOSUB  '47 : GOTO  620 
650DRTA  SAVE  DC  #2, Dt O • 18=0 : GOTO  665 

660 1 3=  C E C 7 >- II ) +F1 ; E C 4 ) = I 3/1.2  : FOR  P=I3+lTO  F4STFP  12  • GOSI  IB  '45<'l 
) : DATA  SAVE  DC  #2«CtO:NEXT  P 
665NEXT  XI 

670I9=F4/F1 : GOSIJB - '34  ,X=X+2  - IF  X<E4+2THEN  580  : GOTO  100 
680DEFFN'45CU>_  : DBACKSPACE  BEG  : DSIC IP  EC 3+IJ > S : E C 3+1.1  ) =E < 3+U ) +1  : DAT 
A LOAD  DC  CtOrFOR  I=1T0  12  : RtC  CU+D+12+I  )=Ct<  I ) : NEXT'  I : RETURN 
79QDEFFN ' 46  C IJ  ) :_P8 C 2+U ) =R0 C 2+U ) +F1  E C IJ+5)=E C IJ+5  )+l : IF  E C U+5 ) >R0 < 1 1 
> THEN  742  : IF  R0C2+UX13THEN  710  : FOR  I = 1T0  12  : RtC  CLI-D+12+I  )=RtC-C 
U 1 1 > +12+ 1 ) ; NEXT  I : GOSUB  •'  45  C U ) • R0 < 2+IJ  ) =R0  C 2+U)  -12 

71 0r:OR  I =1T0  L0  : K=R0  ■'  2+U  ) +G  Cl):  R2=E  C I > : R=  I +5+  C U-l ) • Bt  C P 1 = " " • M=R 
l.C  I ) ■ „T=1 

7:1.5R3=R3+1:  IF  R3C21THEN  720 : P2=l : K=K+1 
720L-M  : IF  R3+M-X21THEN  725  : L-21-R2 

725M=M-L  : I F KC13THEN  730  : STR C Bt  CP ) , J,  L ) =STR C Pt  C IJ+12+K  > , R3,  L ) : GOT 
0 -740 

720ST R C Bt CP).. J,  L)=SlRCRtCCU-i>+12 +K>,  R2,  L) 

740R3-R3+L -1 : J=J+L : IF  M>0THEN  715: NEXT  I: RETURN 
7'42BtC  CIJ-±)*5+l)  = "~"  : RETURN 

75QDEFFN  '47  : FOR  I=1TO  .L0:  IF  BtC  I ).>BtC  I +5) THEN  770  IF  BtC  I XFitC  1 + 
5) THEN  760: NEXT  I 
760U-1 : GOTO  780 
770U=2 

780EC:1.0)=U-1:EC9)=2-U  : FOR  J=R0CU+2)TO  R0CU+2)+Fl— 1 : 18=1 8+1  • IF  18 

<:1  3THEN  790 : DATA  SAVE  DC  #2,  DtO  : 18=1 

790 IF  J <13 THEN  800 : DtC I8)=RtCU+12+J) : GOTO  810 

800DtC  I8)=RtC  CLI-D+12+.J) 

810NEXT  J;. RETURN 


Figure  B-3.  Listing  of  RETR2  (Cont'd) 
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240DATA  LOAD  DC.  OPEN  RTEMP  , 2030,  2399 

2450N  C0— 6 GOTO  870,  870,  870,  1060,  870,  970,  990,  1000,  1600,  109fci 
870REM  **L  I ST , FR I NT,  OR  FAST  : 0=0  : GOSUB  •'23  IF  16— 2 THEN  220 ‘IF  C 
B=11THLN  917/ 

SSQTF  C0=9THEN  910 : J=0 : PRINT  : IF  C0=81 HEN  390: PRINT  “RECNO"; • J=6 
: PRINT  tpb<F.^> 

O90POR  1=1 m * .0 • GGSUB  "9<  I)  : B$=STRCF$CL>,  1,  3)  :K=VRLCSTRCF:r<L>,  9) 
> : J=J+K+1 : IF  LENCB$X=KTHEN  900  : B$=STRCB$,  1,  K> 

900PRINT  B$;  TRBC  J);  :NEXT  I . PRINT  -.PRINT 

910FOR  1=3  TO  R6  : GOSUB  "5<R0<  I)>:  FOR  j=R0C  I )T0  P.1C  I ) ; GQSUB  '?•  C=B 
:IF  I4=0THEN  960: IF  C0-11THEN  950 

9201^=0:  IF  C0O7THEN  940 : PRINTUSING  930,  J;  : 19=6  PRINT  TABC6); 
930X##### 

940FOR  K=1T0  LCi : GOSUB  "9<K> : PRINT  B$CL);  : I9=I9+1+VRL<STR<F$CL),  9 

D.PRINT  TRBCI9);  : NEXT  K : PRINT 

95013=13+1 

96  ONE  XT  J : NEXT  I:  PRINT  -.PRINT  13; "RECORDS" : GOTO  100 
9 TORE M ++STRUCTURE : PR IN I "FIELD";  " TYPE";"  WIDTH";"  NAME" : FOR  I 
=1T0  F0  : PRINT  I;  TAB C6);  STRCF$<  I >,  10, 15  ; TRBC  11);  VALCSTRCF1C  I ),  9)  ) 
DIRB<14>;  ; IF  STRCF$C I ) , 10,  1 ) <> " N ",  I HEN  980:  PRINT  ",  ";  YAt  (STRCFK  I 

>,  11)  ); 

980PRINT  TAB CIS); STRCFTC I ),  1,  3> : NEXT  I GOTO  100 
990PEM  +-+SI2E-  PRINT  F4/F1; "RECORDS" : GOTO  100 

1 000REM  ♦♦SUM  OR  AVERAGE  : FOR  I =1  TO  5 : G < I ) =0  : NEXT  I PR  I NT  R1 ; 1 2:=y 

•GOSUB  "16: IF  I6=2THfcN  22© : T=D© : IF  D2=0THEN  1010 : T=D2-1 

1010FGR  I =1T0  R6  : GOSUB  " 5 C R0  CD):  FOR  J=R0 C I ) TO  R1  Cl):  C=0  : GOSUB 

7 : IF  14=01  HEN  1030: GOSUB  "19 Cl, T) - U-El 

3 02013=13+1 : FOR  K=1+E5T0  El : GCK>=GCK>+ECK> : NEXT  K 

1030NEXT  J : NEXT  DIF  I3=0THEN  1050:  IF  C1*0"AVE,,THEN  1040  FOR  K= 

1+E5T0  U : GCK)=G 00/13  NEXT  K 

3.040FOR  I=E5+1T0  IJ  PRINT  GCI);";";  : NEXT  I:  PRINT 
10S0PR I NT  1 3; ."  RECORDS ,r : GOTO  100 

106 OR EM  ++REPLRCE  GOSUB  "16: IF  I6=2THEN  220 : FOR  I=1T0  R6  GOSUB  " 
5CR0C I ) ) : FOR  J=R0C I )T0  R1 C I) : C=0 : GOSUB  "7: IF  I4=0THEN  1030  X=D0 - 
II-  D2=0TH£N  1070 : X=D2— 1 

1070GOSUB  "19 Cl,  X) : R3=20 : R1=R1-F3  : GOSUB  "14 
1.080GOSUB  "31CI)  : NEXT  J : NEXT  I GOTO  100 
1 081DEFE  N" 69 : FOR  I8-1T0  FI 

1082R1.=R1+1 : IF  R1<=P2THEN  1083  : GOSUB  "70  R0=R0+1  • Rl=l 
10S2C=C+1:  IF  012THEN  1084  : Ct C C: ) =R$ C R1 ) : GOTO  1085 
.1.08401$  C C— 12  ) =R:f-  CR1) 

1085N(::XT  IS  . RETURN 

1086DEFFN " 68.:  14=1 : IF  D2=0THEN  1087  : GOSUB  "?:QOTO  1088 
1 08? GO SUB  "69 
1088RET  URN 

1898REM  -f +DELETE  : GOSUB  "16:- IF  16=21  HEN  220  : C,  19=0:  SELECT  #2  310: 
DATA  SAVE  DC  OPEN  F#2,  TEMP  , 2080, 2399 : GOSUB  "5C1) : 1=1 : FOR  U-1T0 
F4/F1 : IF  I >R6THEN  1100  : IF  U>=R0 C I ) THFN  111.0 
1100  GOSUB  "68 -GOSUB  "37 .GOTO  1140 

1110FOR  J=R0CI)TO  R1CD  .G0SUB  <68:  IF  1 4=0T HEN  1120 : C=C-F1: GOTO  1 

I . 30 

1120GOSUB  "37 

1130NEXT  J . IJ=U+R1  C I ) -R0  C I ) : I = I +1 

1140NEXT  U IF  C=0THEN  1150 • DATA  SAVE  DC  #2,  C$0 

II. 50GOSUB  "34:  GOTO  100 


Figure  B-4.  Listing  of  RETR3 . 
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240DATR  LORD  DC  OPEN  RTEMP  , 2©8©.  2399 

2450 1 M GT<5>1,  X2T<15>1,  X3T<16>1,  Hl<15>2,  ST<15,  3)10,  MT<3>2©,  X5TC2 
>3,  X4 5 . 4) 

250REM  **REFORT  : GO  SUB  '•'16.  IF  I6=2THEN  22© : K9=D0 : STOP  "-MOUNl  REP 
ORT  TAPE  AND  TYPE  CONTINUE"  : Cl*- 11 V 

26©HT="  " INPUI  "REPORT  OUTPUT  TO",  HT : ET="  " INPUT  "REPORT  FORM 
NAME",  ET  : IF  ET="  "THEN  28© 

270 INPUT  "UPDATE  REPORT  FORM",  Cl* : C1*=STR<C1*,  1,  1) : IF  C1T="V"THE 

N 280:  DATA  LORD  "REPORT"  : DATA  LOAD  GTO,  GO,  T4  ; GOTO  390 

280 1 NPU T " HEAD I NG " , GT < 1 > : I NPUT  "DOUBLE  SPACE " , GT < 2 > : I NPUT  " TOTAL 


S",  Gi=r < 3 > : IF  GT < 3 ) = " N " THEN  388:  INPUT  "SUBTOTALS",  GT<4 ):  IF  GT < 4 ) = " 
N "THEN  370:  INPUT  "BY  ITEMS",  AT 

360GOSUB  •“  16  : IF  1 6=2 THEN  22©  . T4=  < D0-K9 > /2  * FOR  I =1TG  T4  : G < I > “VAL. < 

PT < K9+2* I > > : NEXT  I : D8=K9 

370 1 NPUT  "SUMMARY  REPORT  ONLY",  GT<5> 

38* ©DAT A SAVE  OPEN  "REPORT"  • DATA  SAVE  GTO,  GO,  T4 
3 90 T 3=0 


40©  IF  Cl T="N"THEN  410  PRINT  T3+1;  INPUT  "WIDTH.;  CONTENTS ",  AT  : DATA 
SAVE  AT: GOTO  42© 


41 ©DATA  LORD  AT 

420 1 F AT=  " "THEN  43©  : T2=T2+1 : L=NUM < AT ) : B J N C X3T < T3 > ) =D0+1  : CONVERT 
S I R AT,  J , L > TO  X8  : B I N C X2T < T2  > > =X8  : AT=STR < AT,  L+2  > : GOSUB  16  : I F 1 6= 
21  HEN  220 : GOTO  400 

430BINCX3$<T3+1>)=D0+1:  IF:  GTC1  > = "N"THEN  45©:  IF  C1T= 11 N" THEN  51©  : P 
R I NT  " COL  HEAD  I NG " : FOR  I =110  T3 : ST < I,  1) , ST < 1 , 2 ) , ST < 1 , 3 ) = " " : PR I N 
T I.;  : INPUT  AT  : K=© 

422K=K+1  : L=POS<RT=  > : IF  L=©THEN  436  : ST < I , K)=STR < AT’*  1,  L—1)  : AT=S 
VP  t.  AT,  t +1>  : GOTO  433 


436ST < I,  K > = AT 
4 3 8 NEXT  I 

4 50 PR I NT  "COLUMNS-";  : IF  G! < 3 > = " N " THEN  460: PRINT  "TOTALS;"; 

4 6 ©PR  I N r " NO  OF  DEC  I MAL  PLACES  " : FORv  I =1T0  T2  : STR  < HT-  C I > , 1 ) = " CN  " : 
B I N STR  < HT  I > , 3 > ) =6  : I F VAL  < PT  < VAL  < X2T < I > ) ) ) >2 THEN  58©  : STR  C HT  < I > , 
t,  1>  = " I " 

470PRINT  I;:  INPUT  AT:  IF  GT C 3 > - " N " T HE N 480: IF  STRCRT,  1,  l)«nN"THEN 
498  : STR  < HT < 1 > , 2,  1 > = " Y " .GOTO  49© 

480 IF  AT="  "THEN  508  GOTO  495 

490L=POS < AT=  " ; ">  : IF  L=©“l  HEN  50©  : RT=STR< AT,  L+l > 

495C0NVEP1  AT  TO  X8  : B I N < STR  < HT  < I ) , 3 > =X8  : STR  C HT  < I > . 1,  1 > = " N " 
500NEXT  I:  DATA  SAVE  STO,KTO:GOTO  52© 

51 ©DAT A LORD ' ST O , HT < ) 

52©D9=K9:  REWIND  IF  HTO"T"THEN  525 : STOP  "SELECT  PRINTER  AND  TYP 
E CONTINUE" : GOTO  53© 

525SI0P  "LOAD  DATA  TAPE  AND  TYPE  CONTINUE" : REWIND  : DATA  SAVE  OPE 
N "STRUCT" : DATA  SAVE  HT,  19,  FIT,  F7,  FTC ) . F© * DATH  SAVE  END  : DATA  SA 
VL  OPEN  "FILE"  Cl=© : 19=8 ; X3-©  FOR  1=1 TO  T3 : X3=X2+VRL<X2T< I)) : NEX 

t I 

527F.7*  I NT  < < X3-1  > *.  85  > +1  • T4®0 : GT  < 5 ) = " V " GT  < 3 ) , GT  < 1 > = 11 N " : GOTO  560 


Figure  B-5.  Listing  of  RETR4 . 
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APPENDIX  B 


530REM  *H I N I T T1=0  : MT-Cl)  = FOR  J=1T0  4:  FOR  I-JLTO  5:X4CI,J>=0: 

NEXT  I : NEXT  J : IF  T4=0THEN  540  : X5TC1  ) = " *"  : X5TC2>="  **"  :X5T<3.)  = " 

540 IF  GT Cl) O " V " THEN  560 : GOSUB  •'91 

560FOR  5 1=1  TO  R6  : GOSUB  '5<R0CS1>  > : FOR  S2“R0<S1.)TO  RKS1) -.GOSUB 

7 : C=0  :IF  1 4=0.THEN  610  : 1 9- 1 9+F7 

570 IF  T4=0THEN  600:  IF  Ml  C 1)0"'" — "THEN  580 

575F0R  J=1T0  T4-:  fC=G  < J ) : MS  C J >=BT  C K > : GOSUB  "92C.J,  K)  : NEXT  J:  PRINT 
7 2=T2+1 : GOTO  600 

580L1  =T  4+1 : FOR  L0=T4TO  1STEP  -1:K=G(L0''  : IF  M$a0)=BlOOTHEN  590: 
I..1=L1-1 -.PRINT  : PRINT  X5TCL.0);  "TOTAL  FOR  STRCFJOO.  1..  8);  "•  MT 
CL.0)  ■ T2-T2+2  : t«(L0)=BI(IO  : GOSUB  '96 

590NEXT  L0: PRINT  : GOSUB  '95: IF  LOT4THEN  600 : FOR  L=L1T0  T 4 : GOSUB 
'■  92 C L,  GCL  ::>  ) ■ NEXT  L : PR  I NT  : GOSUB  ' 95 
6005=20 : GOSUB  '97 

610NEXT  52:  NEXT  SI:  IF  GT<3)OmV”THEN  615:  PRINT  "**  GRRNO  TOTRL  * 
* " : L=4  : GOSUB  -'96 

612SELECT  PRINT  005 <64 ) : GOTO  100 

615 IF  HT= " T "THEN  612 : DOTH  SAVE  ClTO:DATA  SAVE  END  REWIND  DATA 
LOAD  "STRUCT"  : FOR  I=1T0  T3  : BT < I )*F$<  I > :.Si  RCFTC  I ),  9.  1>=X2T<  I > : STR 
CFT  < I > , 10..  1 ) =HT  Cl):  STR  < FT  Cl),  11 ) =STR < HT  < I ) , 3 ) 

617STRCFTC  I ),  1,  8 ) =S1  C 1,1)  NEXT  I : DATA  RESAVE  HI,  19,  FIT,  F7,  FTC  ),  T 
3 : PEW I NO  : FOR  I =1T0  T3 : FTC  I ) =BT  Cl)  NEXT  I : GOTO  100- 
620DEFFN- 91 : T1=T1+1 : PR I NT  HEX C 0C ) : FOR  I =1T0  6 : PR I NT  NEXT  I : PR I N 
T "PAGE"; Tl : PRINT  "DATE-  FIT  PRINT  "DATABASE : FT: PRINT  "REPO 

RT  FORM:  ";  ET  PRINT  : T2-11 

630 IF  GT C 1 ) = " H "THEN  648  : FOR  ,T=1T0  3 : L=0  : FOR  I=1T0  T3  L=L+VALCX2T 
C I ) ) +1 . PR I NT  ST  C I , J ) ; TAB  CL);  : NEXT  I : PR I N f NEXT  J : PR I N T 
6 4 ORE TURN 

658DFFFN'  92C  T,  K)  PRINT  V5TC.J);  " ";  STRCFTCK),  1,  8);  " • . BT  CK)  : TZ-T 
2-1-1 : RETURN 

668DEFFN  •'  93 C K,  V)  : N=VAL  C STR  C HT  C K ) , 3 ) ) : GOSUB  ' 29 C V ) : GOSUB  ' 94  C K ) : F 
L rURN 

710DLFFN  •'  94  C T ) : CT=  " " : STR  C CT,  1+VAL  C X2T  C f ) ) -L.EN  C-BT  ) ) =BT  : BT-CT  : RET 
URN 

728DEFFN  '95:  IF  GTC1)0"V"THEN  73© : T2=T2+1 : I F T2C56THFN  730  GOSUB 

•'91 

7 3 ©RETURN 

740DEFFN-  96 : Q, P=0 . FOR  2-1T0  T3.IF  ST  R C HT  C 2 ) , 2,  1 ) <> " V " THEN  750  P= 
P+1  : GOSUB  ' 93  C 2,  X4  C P,  L. ) ) : FOR  I =LTO  T4  : X4  C P,  I ) =0  : NEXT  I : PR  I NT  TAB 

CO);  BT; 

7 5 0 Q = Q + V A L C X2T 2 ) ) +1 : NEXT  Z PR  I NT  : GOSUB  ' '95  : RETURN 
760DEFFN •' 97 : P,  W=© : FOR  .1-1  TO  T3  : GOSUB  ' 1 9 C VAL.  C X3T  C I ) ),  VALCX3TC  1+1 
) ) -1) : IF  STR  C HT  Cl), 1,  1 ) O " C " THEN  770 : BT=DT  C E2 ) : E2=E4 : GOTO  780 
770GOSUB  ■'  93  C I , EC  El.)  ) : IF  STRCHTC  I ),  2,  1 >C>,,V,,THEN  788  . P- P+1 : CONVE 

Figure  B-5.  Listing  of  RETR4  (Cont’d) . 
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Rl  B$TO  X8 : X4CP,  4>=X4tP,  4>+X8 : IF  T4=0THEN  780 : FOP  L=1T0  T4:X4<P, 

I . !>  =X4  C P,  L +X8  : NEXT  L 

780 1 F H*="T" THEN  788 : M=V8L X2* < I > > : X9=  1 

7815=8+:!. : IF  S<21TH£N  783 : C1=C1+1 : 5=1 : IF  CK13THEN  783  : DflTFt  SAVE 
Cl* O'  :C1=1 

783I8=M : IF  S+M-K21THEN  784:18=21-5 
784M=M— 18 

785STR <. Cl*  <!  Cl ) > St  I8)=STR<8 *,  X9t  IS>  : X9=X9+ 1 8 : S=S+I8-1 : IF  N>0  THEN 
781 

788 IF  G* C.5 ) =" V” THEN  790  : PRINT  TR8<W>  : B*;  : U-W+VAL < X2* < I ) > +1 
790NEXT  I I F G* < 5 > = " V " THEN  805 : PR I NT  IF  G*  < 2 > O " V " THEN  800 : PR I N 
I :T2=T2+1 
808GOSUB  •'  95 : RETURN 
W05RE  TURN 

Figure  B-5.  Listing  of  RETR4  (Cont'd). 
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